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THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT PIOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ~ — OR 
tite OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED 6 


COPYRIGHT (C) 1979, 1981 BY DIGITAL EQUIPMENT CORPORATION 
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HISTORY SECTION 


CKKUAAO WAS RELEASED OCTOBER, 


NITIAL RELEASE 


1979 > I 
CKKUABO WAS RELEASED OCTOBER, Hb 9 > ete OF UNIBUS MEMORY TEST 
> 


CKKUACO WAS RELEASED APRIL, 


ESTING OF 11/24 MAP, 11/24 WITH UNIBUS 
MEMORY ONLY, & POWER MONITOR BIT CHECK. 


SEQUENCE 
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1. ABSTRACT 


THIS PROGRAM IS DESIGNED TO SE RUN ON A PDP 11/24 OR 11/44 ON 
WHICH THE CPU, CACHE (IF APPLICABLE), AND MEMORY MANAGEMENT 
DIAGNOSTIC PROGRAMS HAVE BEEN RUN. THE PROGRAM WILL DETECT ALL 
ERRORS THAT ORIGINATE WITH THE MAP BOX AND PROVIDE LOOPING 
CAPABILITIES SO THAT THE FIELD SERVICE ENGINEER CAN VERIFY 

THE FAILURES. THERE MAY he SOME CASES, SUCH AS THE CACHE 
REGISTER DATA PATH, AND CACHE MEMORY DATA PATH, WHERE 
INTERACTION BETWEEN MODULES PROHIBITS CLOSE ISOLATION, BUT 

THE FAILING FUNCTION WILL BE CALLED OUT SO THE FIELD SERVICE 
ENGINEER CAN COMPLETE THE ISOLATION PROCESS. 


IF THE PROGRAM CATCHES AN ERROR IN AN EARLY TEST AND IS ALLOWED 

TO CONTINUE RUNNING THROUGH THE LATER TESTS THE ERROR INDICATIONS 
FROM THOSE LATER TESTS MAY BE INVALID. THIS IS DUE TO THE STRUCTURE 
OF THE PROGRAM, WHICH ASSUMES THAT ALL AREAS TESTED PRIOR TO THE 
CURRENT TEST ARE FUNCTIONING PROPERLY. 


THE ERROR TYPE OUTS WILL BE IN TABLE FORMAT, W1.H A MESSAGE INDICATING 


THE CLASS OF ERROR, A HEADER IDENTIFYING EACH COLUMN AND A REPORT OF 
ALL PERTINENT DATA. WHEN THE TEST CAN PRODUCE MORE THAN ONE ERROR 
CONDITION, A SUMMARY OF ERRORS WILL BE GIVEN AT THE END OF THAT TEST 
CONSISTING OF: THE LOGICAL ‘AND’ AND ‘OR' OF THE DATA PREVIOUSLY 
REPORTED AND THE NUMBER OF cen IN THIS TEST. (SEE SECTION 6.3 FOR 
AN EXAMPLE OF THE ERROR TYPEOUTS.) 
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15s 2. REQUIREMENTS 
$6 2.1 EQUIPMENT 
124 THE BASIC PDP=11/24 OR 44 COMPUTER, INCLUDING THE CPU, CACHE 
125 (11/44 ONLY), MEMORY MANAGEMENT, AND AN LA=30 OR EQUIVALENT DEVICE 
1s FOR ERROR MESSAGES. 
fs 4 2.2 STORAGE 
130 THIS PROGRAM WILL REQUIRE 8K TO LOAD BUT WILL UTILIZE ALL 
131 EXISTING CORE FOR A DUAL ADDRESSING TEST OF MEMORY 


2.3 


— et et td 
BSBIFAEAV 


FROM THE UNIBUS. 
PRELIMINARY PROGRAMS 


THE CPU, CACHE(IF APPLICABLE), AND MEMORY MANAGEMENT 
DIAGNOSTICS SHOULD BE RUN BEFORE THIS PROGRAM. THE MEMORY 
DIAGNOSTIC SHOULD AT LEAST MAKE A QUICK VERIFY OF THE AREA 
OF MEMORY THIS PROGRAM WILL LOAD AND RUN IN. 


SEQUENCE 


a 


CKKUACO 11/24/44 UBI MAP 


an 
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LOADING PROCEDURE 
METHOD. 
THIS PROGRAM CAN BE LOADED FROM ANY DEVICE THAT IS 


SUPPORTED BY XXDP_AND SHOULD BE LOADED USING THE XXDP 
PROCEDURE FOR THAT DEVICE. 


SEQUENCE 


6 
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4.2 


4.3 


STARTING PROCEDURE 

STARTING ADDRESS 

PROGRAM STARTS AT ADDRESS 200 
PROGRAM AND/OR OPERATOR ACTION 


THE PROGRAM WILL IDENTIFY ITSELF. IF CPU IS AN 11/44, PROGRAM 

WILL PROCEED WITH TESTING. IF CPU IS AN 11/24, AND LOCATION 176 
CONTAINS ZERO (SUCH AS JUST AFTER LOADING), PROGRAM WILL PROMPT 

FOR A SWITCH REGISTER INPUT. IF NONE IS REQUIRED, ENTER <CR>. 

IF YOU DO SO, PROGRAM WILL DEPOSIT A ‘‘l’' IN LOCATION 176 (MEANINGLESS 
UNLESS BIT 8 IS ALSO SET) SO THAT SUBSEQUENT RUNNING OF THE PROGRAM 
WILL NOT RESULT IN THE SAME REQUEST. IF MANUFACTURING IS RUNNING 
THIS PROGRAM ON AN 11/24 WITH UNIBUS MEMORY ONLY (NO MAIN MEMORY), 
ENTER A NUMBER WITH AT LEAST BIT 11 SET (SWR= ation THIS WILL KEY 
THE PROGRAM TO TEST THE 11/24 IN THAT CONF IGURATI 


SPECIAL STARTING PROCED RE 


IF IT APPEARS THAT THE oat te IS CAUSING SOME TROUBLE AND 

YOU STILL WANT My RUN THIS PROGRAM, IT IS POSSIBLE TO RUN 
WITH THE CACHE DISABLED. SIMPLY LOAD THE CACHE CONTROL 
REGISTER (17777746) WITH THE DESIRED NUMBER. THEN LOAD 

THE PC (17777707) WITH THE STARTING ADDRESS (200) AND 

PRESS ‘‘CONTINUE''. THE PROGRAM WILL NOW RUN NORMALLY EXCEPT 
THAT CERTAIN TESTS WILL BE SKIPPED SINCE THE CACHE IS DISABLED. 
THIS FACT IS INDICATED IN THE ABSTRACT OF EACH TEST THAT 
CHECKS THE CACHE CONTROL REGISTER. 


DEFINITION OF THE hint IN THE CACHE CONTROL REGISTER: 
BITOO =DISABLE TRAPS 

BITO2 -FORCE MISS ON READ,WHERE ADDRESS BIT 12 IS 0 
BITO03 FORCE MISS ON READ,WHERE ADDRESS BIT 12 IS 1 
BITO9 UNCONDITIONAL CACHE BYPASS 


SEQUENCE 


I 1 
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7 5 OPERATING PROCEDURE 
185 5.1 OPERATIONAL SWITCH SETTINGS 
187 Sw15 1= HALT ON ERROR 
| 188 Sw14 12 LOOP ON TEST 
189 Sw13 1z INHIBIT ERROR TYPEOUTS 
190 Swi2 1= INHIBIT TRACE TRAP 
191 Sw11 1= SET WHEN RUNNING AN 11/24 WITH NO MAIN MEMORY 
| 192 AND ONLY UNIBUS MEMORY 
193 Sw10 i= BELL ON ERROR 
194 Sw09 1s LOOP ON ERROR 
| 195 Sw08 1s LOOP ON TEST IN SWR<05:00> 
196 Sw07 l= INHIBIT MULTIPLE ERROR TYPE OUTS 
197 Sw06 1= SELECT CACHE TESTS. THIS IS USED FOR 
198 MFG. QUICK VERIFY STATION AND CAN BE SELECTED 
199 BY APT SCRIPTING. THESE TESTS ASSUME T 
| 200 ALL MODULES EXCEPT UBI MODULE ARE Ala <000. 
201 Sw05 1x SELECT UNIBUS MEMORY TESTS 
202 SET WHEN A WINDOW EXISTS (SOME UBMAP JUMPERS CUT), AND 
Sw UNIBUS MEMORY OCCUPIES THE ENTIRE WINDOW ADDRESS AREA. 
$08 5.2 SUB-ROUTINE ABSTRACTS 
207 ALL SUBROUTINE ABSTRACTS APPEAR IN THE CODE BEFORE THEIR 
208 EXPANSION AND IN THE DOCUMENT THAT IMMEDIATELY FOLLOWS THIS. 
$y BELOW IS A LIST OF THE SUBROUTINE TITLES. 
$13 5.2.1 MACRO LIBRARY SUBROUTINES (FOUND IN MOST PROGRAMS) (SOME IN THIS SOURCE) 
213 SCOPE HANDLER ROUTINE 
214 ERROR HANDLER ROUTINE 
215 ERROR MESSAGE TYPE OUT ROUTINE 
216 CONVERT 16-BIT VIRTUAL ADDRESSES TO 22-BIT PHYSICAL ADDRESSES 
217 SAVE AND RESTORE RO-R5 ROUTINES 
218 TYPE ROUTINE 
219 BINARY TO OCTAL (ASCII) AND TYPE 
220 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
221 TRAP DECODER 
222 POWER DOWN AND UP ROUTINES 
223 DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
$e END OF PASS ROUTINE 
333 5.2.2 SUBROUTINES UNIQUE TO THIS PROGRAM 
228 SUBROUTINE TO TURN OFF AND SAVE T-BIT 
229 SUBROUTINE TO RESTORE T-BIT TO ITS PREVIOUS CONDITION 
230 SUBROUTINE TO CLEAR ALL OF THE MAP REGISTERS 
231 SUBROUTINE TO EXTRACT MAP ADDRESS FROM PAR CONTENTS 
$35 SUBROUTINE TO DETERMINE 11/24 WITH UNIBUS MEM ONLY & CHECK LMA'S IF SO 
See 5.2.3 TRAP AND ABORT HANDLER ROUTINES 
236 CPU TRAP HANDLER ROUTINE 
237 CACHE TRAPS AND ABORTS HANDLER ROUTINE 
238 MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 
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+44 5.3 RUNNING UNDER APT 
24) THE EXECUTION TIMES PROVIDED IN THE APT SCRIPT THAT FOLLOWS 


242 ARE FOR EXECUTION WITH A 11/44 PROCESSOR, CACHE, 
243 16K CORE MEMORY, AND 300 BAUD. 
Sie THE FOLLOWING IS A PROGRAM LOAD FILE USED BY APT: 

246 1. E TABLE ‘A’ IS USED FOR APT DUMP MODE. 

247 A. IN ADDITION TO NORMAL CPU DIAGNOSTIC TESTS, THIS 

5 TABLE WILL SELECT THE OPTIONAL CACHE TESTS, ($SWREG=100). 

| 

250 2. E TABLE 'B' IS USED FOR APT QV MODE WHILE on ae. ; 

251 MANUFACTURING QV STATION. IT ACCOMPLISHES WHAT ETAB 

| 28 "A' DOES BUT ADDITIONALLY SUPRESSES TYPEOUTS. SENVM=940) 
254 3. ETABLE 'C" IS USED FOR APT QV OR RUNTIME MODES WHILE 
255 RUNNING ON SYSTEMS OTHER THAN MFG. QV STATIONS. THIS 

| $28 TABLE DESELECTS THE OPTIONAL CACHE TESTS. 

258 4. ETABLE ‘D’ IS USED BY bee yy TO RUN AN 11/24 UNDER 
259 APT WITH UNIBUS MEMORY AND NO MAIN MEMORY, AND BECAUSE OF 
a4 NO CACHE IN AN 11/24, DESELECTS THE OPTIONAL CACHE TESTS. 
262 1ST PASS LONGEST ADDITIONAL 
263 RUN TIME TEST TIME RUN TIME 
264 10 5 0 
265 
BSP! ot a eee de E TABLES kcccces 
267 
268 A B C D 
269 E-MODE /S-MODE 000/000 240/001 240/001 240/001 
Sn (SENVM/$ENV) 
272 SWITCH REGISTER 1 000100 000100 000000 004000 
4, (SSWREG) 
27 SWITCH REGISTER 2 000000 000000 000000 000000 
276 CPU TYPE/OPTIONS 00/0000 00/0000 00/0000 00/0000 
277 MEMORY MAP CODE 1 000/0000 000/0000 000/0000 000/0000 
278 MEMORY MAP CODE 2 000/0000 000/0000 / 000/0000 
279 MEMORY MAP CODE 3 000/0000 000/0000 000/0000 000/0000 
280 MEMORY MAP CODE 4 0009/0000 000/0000 000/0000 000/0000 
281 BUS PRIORITY/INTERRUPT 1 0000 0000 0000 0000 
282 BUS PRIORITY/INTERRUPT 2 0000 0000 0000 9000 
283 BASE ADDRESS CODE 000000 000000 000000 000000 
284 DEVICE MAP CODE 000000 000000 000000 000000 
285 CTLR. SPECIFIC WORD 1 000000 000000 000000 000000 
286 CTLR. SPECIFIC D2 000000 00000 000000 
287 DEVICE DESCRIPTOR \IORD 0 177777 177777 177777 177777 
288 DEVICE DESCRIPTOR VIORD 1 177777 177777 177777 177777 
289 DEVICE DESCRIPTOR ‘\IORD 2 000000 000000 000000 
290 THROUGH 
291 DEVICE DESCRIPTOR WORD 15 000000 000000 000000 000000 

| 


SEQUENCE 
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6. ERRORS 
6.1 ERROR HALTS AND DESCRIPTION 


6.2 


6.3 


WHEN AN ERROR IS DETECTED AN ‘ERROR’ (EMT) 

INSTRUCTION IS EXECUTED AND THE ‘ERROR HANDLER ROUTINE' 
CHECKS THE SWITCH REGISTER FOR MODE SELECTED. 

THE PROGRAM WILL: 


H LL: 

HALT ON ERROR IF SW15=1 
INHIBIT ERROR TYPE OUT IF SW13=1 
RING BELL _ON ERROR IF Sw10=1 
LOOP ON ERROR IF Sw9=1 


ERROR RECOVERY 


IF SWO9=1, THE PROGRAM WILL LOOP BACK TO 

THE POINT WHERE THE INSTRUCTION THAT CAUSED THE ERROR WAS 
EXECUTED, WITHOUT ALLOWING ANY OF THE CONDITIONS TO CHANGE. 
THIS WILL PROVIDE THE TIGHTEST POSSIBLE P-gp LOOP. 

IF SWO9=0, EACH ERROR WILL BE REPORTED AN 

LOGGED AND, AT THE END OF EACH TEST, A SUMMARY OF ALL ERRORS 
OCCURRING IN THAT TEST WILL BE PROVIDED. THE SUMMARY 
CONSISTS OF THE LOGICAL AND AND OR OF THE ADDRESS AND/OR 
DATA THAT WAS WRONG. 


IF THE POWER MONITOR BIT ERROR IS CALLED, YOU MUST CORRECT THE POWER 
SUPPLY OR CPU ERROR REGISTER PROBLEM BEFORE YOU CAN RELY ON THE 
RESULTS OF THIS DIAGNOSTIC. THE ERROR CAN BE CALLED AT 1 OF 2 

PLACES - 1) IN THE SCOPE ROUTINE EXECUTED AT THE BEGINNING OF EACH 
TEST, AND 2) IN AN ERROR CALL IN CASE BIT BECOMES SET AFTER THE SCOPE. 
IF THE BIT IS CAUGHT IN THE ERROR ROUTINE, *TWO* ERRORS WILL CALL - 
1) POWER MONITOR BIT ERROR WILL CALL FIRST TO ALERT YOU TO THE 
POSSIBILITY THE PROBLEM COULD BE CAUSED BY THE OUT-OF-SPEC POWER 
SUPPLY, AND THEN THE ERROR THAT WAS TO CALL. 


SAMPLE ERROR TYPE OUTS 
SEE ‘‘SERRTB:** FOR SAMPLE ERROR TYPEOUTS. 


= 
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6.3.1 


MULTIPLE TYPE ERRORS: AN EXAMPLE: 


THE FOLLOWING wy PS. TIMED OUT WHEN REFERENCED 
REG.ADR TESTNO ERRORPC 

170210 000001 015226 
170212 000001 015232 

] 10 ] 


170372 000001 015232 
170374 000001 015232 
170376 000001 015232 
SUMMARY OF — THAT TIMED OUT ON READ 


REGADRS RE 
“"AND'' #ERRORS TESTNO ERRORPC 
170376 170210 32 000001 010530 


11 


| 
' 
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RESTRICTIONS 

STARTING RESTRICTIONS 
NONE 

OPERATING RESTRICTIONS 
NONE 


SEQUENCE 


12 
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MISCELLANEOUS 
8.1 EXECUTION TIME 
THE RUN TIME FOR ANY PASS IS APPROXIMATELY 3 SECONDS. 
8.2 ADDRESS GENERATION IN THE PDP=11/44 ¥ 
THE FOLLOWING IS AN EXAMPLE OF HOW A MEMORY ADDRESS 
IS GENERATED BY THE UNIBUS MAP. THIS ASSUMES THAT 
gy eg CR A ey 
A. VIRTUAL ADDRESS 15 14 13 12 11 10 09 08 07 06 05 04 05 02 01 00 
Al. P.A.R. PAGE NUMBER (0-7) 15 14 13 
A2. OFFSET (FROM VIRTUAL ADDRESS) 12 11 10 09 08 07 06 05 04 03 02 01 00 
B. P.A.R.CPAGE NO.] + 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
C. PHYS ADDRS (A2#8) 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 
C1. 17XXXXXX=> U.B.ADR. 21 20 19 18 
C2. MAPPING REG.NO. (0-36) 17 16 15 14 13 
C3. OFFSET 12 11 10 09 08 07 06 05 04 03 02 01 00 
D. MAP REG.CNO.] + 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 
E. PHYS ADDR (C3#D) 21 20 19 18 17 16 15 14 13 12 11 10 09 08 07 06 05 04 03 02 01 00 


DESCRIPTION OF LINES 
A: VIRTUAL ADDRESS (16 BITS) 
Al: UPPER 3 BITS OF VIRTUAL ADDRESS, USED TO 
SELECT A PAGE ADDRESS REGISTER (PAR) 
: LOWER 13 BITS OF VIRTUAL ADDRESS, ADDED TO 
SELECTED PAR 


B: PAGE ADDRESS REGISTER (16 BITS), IN ADDITION PROCESS THIS GETS 
LEFT SHIFTED 6 BITS BEFORE ADDITION TO A2 


C: PHYSICAL ADDRESS vartie BY MEMORY MANAGEMENT, (22 BITS) 
C1: IF UPPER 4 BITS ARE ALL ONES THEN BITS <17:00> GO OUT ON UNIBUS 
C2: IF MAP RELOCATION IS ENABLED THEN BITS <17:13> SELECT ONE 
OF THE 36 (OCTAL) MAP REGISTERS. 
C3: LOWER 13 BITS OF UNIBUS ADDRESS, ADDED TO SELECTED MAP REGISTER 


D: MAP REGISTER (22 BITS), ADDED TO BITS <12:00> OF UNIBUS ADDRESS 
E: PHYSICAL ADDRESS GENERATED BY UNIBUS MAP AND SENT TO THE CACHE. 


CKKUACO 11/24/44 UB] MAP 
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ve PROGRAM DESCRIPTION 
THE ASSEMBLED Li 3) CKKUAC.SEQ, HAS A PARAGRAPH DESCRIBING 
EACH CF THE TESTS. THE PARAGRAPH WILL INDICATE IF THE TEST IS 


RUN CONDITIONALLY "ON THE STATUS ON THE CACHE CONTROL REGISTER.@ 


SEQUENCE 


14 
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1479 TITLE CKKUACO 11/24/44 UBI MAP 
;*COPYRIGHT (C) APRIL 1981 

;*DIGITAL EQUIPMENT CORP. 

ssrue NARD, MASS. 01754 


! #PROGRAM BY DAN P. MILLEVILLE 


‘ *THIS PROGRAM WAS ASSEMBLED page THE PDP=11 MAINDEC SYSMAC 
; *PACKAGE (MAINDEC=11-DZQAC-C5), . 1981. 


* SBTTL OPERATIONAL SWITCH SETTINGS 
SWITCH USE 


LOOP TEST 

INHIBIT ERROR TYPEOUTS 
INHIBIT TRACE TRAP 
INHIBIT TRACE TRAP 
BELL ON ERROR 


ERROR 

LOOP ON TESTI IN SWR<4:0> 

s INHIBIT MULTIPLE ERROR TYPEOUTS 
SELECT CACHE-CIS TESTS 
SELECT MEMORY ON UNIBUS TEST 


2%. Be Be Be Be Be Be . 
s»eepnennenennenenenenneneneneE 


MANWOO—NWWE 
oe 
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BASIC DEFINITIONS 
1483 -SBTTL BASIC DEFINITIONS 





a he OF a TiKS POINTER *** 1100 *** 


11 STACK= RST ADDRESS OF THE STACK 
001100 KERSTK= STACK ‘KERNEL STACK 
00700 SUPSTK= STACK=200 : SUPERVISOR STACK 
000600 USESTK= STACK-300 :;USER STACK 
104000 ERROR=EMT 3 
4 SCOPE=I0T ; 
177776 PS= 177776 ; sPROCESSOR STATUS WORD 
177776 PSW=PS 
177774 STKLMT= 177774 ; s STACK LIM'T REGISTER 
177772 PIRQ= 177772 OGRAM INTERRUPT REQUEST REGISTER 
177570 SWR= 177570 t:HARDWARE SWITCH REGISTER 
177570 DDISP= 177570 : HARDWARE DISPLAY REGISTER 
177546 LKS= 177546 ::LINE CLOCK (KW11-L) STATUS REGISTER 
3: *M]SCELLANEOUS siesta 
000011 HT= 11 E FOR ee TAB 
000012 LF= 12 CODE LINE FEED 
000015 CR= 15 CODE CARRIAGE RETURN 
000200 CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
;*GENERAL PURPOSE REGISTER DEFINITIONS 
000600 RO= x0 3; GENERAL REGISTER 
000001 R1= %1 3:GENERAL REGISTER 
000002 R2= %2 7; GENERAL REGISTER 
000003 R3= %3 7: GENERAL REGISTER 
000004 R4= %4 7;GENERAL REGISTER 
000005 R5= %5 7;GENERAL REGISTER 
000006 R6= %6 7: GENERAL REGISTER 
000007 R7= %7 : = GENERAL REGISTER 
000000 R10=RO : 
1 R11=R1 : 
0 2 R12=R2 ; 
000003 R13=R3 ; 
000004 R14=R4 H 
000005 R15=R5 : 
000006 SP= %6 : = STACK POINTER 
000006 KSP=SP : 
000006 SSP=SP 
000006 USP=SP 
000007 PC= %7 PROGRAM COUNTER 
s*PRIORITY LEVEL DEFINITIONS 
PRO= 0 ::PRIORITY LEVEL 0 
PR1= 40 ; PRIORITY LEVEL 1 
000100 PR2= 100 PRIORITY LEVEL 2 
000140 PR3= 140 ;ZPRIORITY LEVEL 3 
000200 PR4= 200 s PRIORITY LEVEL 4 
000240 PR5= 240 ; PRIORITY LEVEL 5 
0003 PR6= 300 sspaiony LEVEL 6 
000340 PR7= 340 sPRIORITY LEVEL 7 
;*"'SWITCH REGISTER’’ SWITCH DEFINITIONS 
100000 Sw15= 100000 
040000 SW14= 40000 
020000 SW13= 20000 
010000 SWi2= 10000 
000 Swi1= 000 
002000 SW10= 2000 
001000 Swo9= 1000 
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BASIC DEFINITIONS 


000400 SwO8= 400 
000200 SwO7= 200 
000100 SwO6= 100 
000040 SwOoS= 40 
0 SwO4= 20 
000010 SwO3= 10 
004 SwO2= 4 
C00002 Swol= 2 
001 swoo= 1 
001000 Sw9=Sw09 : 
000400 Sw8=Sw08 ; 
SW7=SwO7 : 
000100 SW6=SW06 ; 
Sw5=SW05 ; 
000020 SW4=SWO4 : 
000010 Sw3=Sw03 : 
Sw2=Sw02 ; 
090002 Sw1=Sw01 : 
000001 SwO=Sw00 : 
:*DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 BIT15= 100000 
040000 BIT14= 40000 
BIT13= 20000 
010000 BIT12= 10000 
BIT11= 400 
002000 BIT10= 2000 
001000 BITO9= 1000 
BITO8= 400 
000200 BITO7= 200 
000100 BiT06= 100 
0 BITOS5= 40 
000020 BIT04= 20 
BITO3= 10 
BITO2= 
000002 BITO1= 2 
1 BITOO= 1 
001000 BIT9=BITO9 : 
000400 B1T8=B1T08 : 
000200 BIT7=B1T07 ; 
000100 BIT6=BIT06 ; 
000040 BIT5=B1T05 : 
000020 BIT4=BIT04 : 
000010 BIT3=B1T03 : 
000004 BIT2=BITO2 : 
000002 BIT1=BITO1 : 
000001 B1TO=B1T00 
:*BASIC ''CPU'' TRAP VECTOR ADDRESSES 
000004 ERRVEC= 4 TIME OUT AND OTHER FRRORS 
000010 RESVEC= 10 3 RESERVED AND ILLEGAL INSTRUCTIONS 
000014 TBITVEC=14 33 
000014 TRIVEC= 14 7; TRACE TRAP 
000014 BPTVEC= 14 7 BREAKPOINT TRAP (BPT) 
000020 IOTVEC= 20 +: INPUT/OUTPUT TRAP (IOT) **SCOPE** 
000024 PWRVEC= 24 ::POWER FAIL 
000030 EMTVEC= 30 ::EMULATOR TRAP (EMT) **ERROR** 
000034 TRAPVE C= 34 :""TRAP’' TRAP 


000060 TKVEC= 60 >; TTY KEYBOARD VECTOR 
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BASIC DEFINITIONS 
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a a 


000064 TPVEC= 64 ;: TTY PRINTER VECTOR 
000100 KVEC= 100 ZILINE CLOCK (KW11=L) VECTER 
000114 CACHVEC=114 ZiCACHE ERROR INTERRUPT VECTO 
000240 PIRQVEC=240 ; PROGRAM INTERRUPT REQUEST VECTOR 
000250 MMVEC= 250 MORY MANAGEMENT VECTOR 
.SBITL CACHE REGISTER’ DEFINITIONS 
177740 LOADRS = 177740 ;;LOWER 16 BITS OF ADDRESS THAT CAUSED ERROR 
177742 HIADRS = 177742 UPPER SIX BITS OF ADDRESS THAT CAUSED ERROR 
177744 MEMERR = 177744 i CACHE ERROR REGISTER 
177746 CONTRL = 177746 $3 Y CONTROL REGISTER 
177750 MAINT = 177750 MEMORY MAINTENENCE REGISTER 
177752 HITMIS = 177752 HIT MISS REGISTER ‘I’ IMPLIES HIT IN CACHE 
.SBTTL CPU_REGISTER DEFINITIONS 
177760 SIZELO = 177760 ;:;MEMORY SIZE REGISTER NUMBER TO PUT INTO A PAR 
::T0 GET TO THE LAST 32 WORDS OF MEMORY 
177762 SIZEHI = 177762 ::HIGH SIZE REGISTER, RESERVED FOR FUTURE USE 
CURRENTLY ALL ZERO 
177764 SYSTID = 177764 iSYSTEM ID REGISTER 
177766 CPUERR = 177766 :CPU ERROR REGISTER HOLDS CONDITION THAT CAUSED 
Zi THE TRAP TO ERRVEC (000004) 
.SBITL_ MEMORY MANAGEMENT” DEFINITIONS 
:*MEMORY MANAGEMENT STATUS REGISTER ADDRESSES 
177572 mRO= 177572 
177574 MMRI= 177574 
177576 MMR2= 177576 
172516 MMR3= 172516 
177572 SRO=MMRO 
177574 SR1=MMR1 
177576 SR2=MMR2 
172516 SR3 ; 
:*USER "'I'" PAGE DESCRIPTOR REGISTERS 
177600 UIPDRO= 177 
177602 UIPDR1= 177602 
177604 UIPDR2= 177604 
177606 UIPDR3= 177606 
177610 UIPDR4= 177610 
177612 UIPDR5= 177612 
177614 UIPDR6= 177614 
177616 UIPDR7= 177616 
:*USER 'D'' PAGE DESCRIPTOR REGISTORS 
177620 UDPDRO= 177620 
177622 UDPDRI= 177622 
177624 UDPDR2= 177624 
177626 UDPDR3= 177626 
177630 UDPDR4= 177630 
177632 UDPDR5= 177632 
177634 UDPDR6= 177634 
177636 UDPDR7= 
:*USER "'I'' PAGE ADDRESS REGISTERS 
177640 UIPARO= 1 
177642 UIPARI= 177642 
177644 UIPAR2= 177644 
177646 UIPAR3= 177646 
177650 UIPAR4= 177650 
177652 UIPARS= 177652 
177654 UIPARG= 177654 


177656 UIPAR7= 177656 
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MEMORY MANAGEMENT DEFINITIONS 


foeano "'D'' PAGE ADDRESS REGISTERS 


177660 UDPARO= 177660 
177662 UDPAR1= 177662 
177664 UDPAR2= 177664 
177666 UDPAR3= 177666 
177670 UDPAR4= 177670 
177672 UDPARS= 177672 
177674 UDPAR6= 177674 
177676 UDPAR7= 1 
;*SUPERVISOR ‘'I'' PAGE DESCRIPTOR REGISTERS 
172200 SIPDRO= 172200 
172202 SIPDR1= 172202 
172204 SIPDR2= 172204 
172206 SIPDR3= 172206 
172210 SIPDR4= 172210 
172212 SIPDR5= 172212 
172214 SIPDR6= 172214 
172216 SIPDR7= 172216 
; *SUPERVISOR ‘D'' PAGE DESCRIPTOR REGISTERS 
172220 SDPDRO= 172220 
172222 SDPDRi= 172222 
172224 SDPDR2= 172224 
172226 SDPDR3= 172226 
172230 SDPDR4= 172230 
172232 SDPDR5= 172232 
172234 SDPDR6= 172234 
172236 SDPDR7= 172236 
3 *SUPERVISOR ‘'I'' PAGE ADDRESS REGISTERS 
172240 SIPARO= 172240 
172242 SIPAR1= 172242 
172244 SIPAR2= 172244 
172246 SIPAR3= 172246 
172250 SIPAR4= 172250 
172252 SIPAR5= 172252 
172254 SIPAR6= 172254 
172256 SIPAR7= 172256 
;*SUPERVISOR ‘D'' PAGE ADDRESS REGISTERS 
172260 SDPARO= 172260 
172262 SDPAR1= 172262 
172264 SDPAR2= 172264 
172266 SDPAR3= 172266 
172270 SDPAR4= 172270 
172272 SDPARS= 172272 
172274 SDPAR6= 172274 
172276 SDPAR7= 172276 
3*KERNEL ''I'’ PAGE DESCRIPTOR REGISTERS 
1723 KIPDRO= 172300 
172302 KIPDR1= 172302 
1723 KIPDR2= 172304 
172306 KIPDR3= 172306 
172310 KIPDR4= 172310 
172312 KIPDR5= 172312 
172314 KIPDR6= 172314 
172316 KIPDR7= 172316 
;*KERNEL ‘'D'' PAGE DESCRIPTOR REGISTERS 
172320 KDPDRO= 172320 
172322 KDPDR1= 172322 
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| 
MEMORY MANAGEMENT DEFINITIONS 

| 172324 KDPDR2= 172324 

| 172326 KDPDR3= 172306 
172330 KDPDR4= 172330 
172332 KDPDRS= 172332 
172334 KDPDRG= 172334 

| 172336 KDPDR7= 172336 

*KERNEL ‘'I'' PAGE ADDRESS REGISTERS 
172340 KIPARO= 172340 
172342 KIPARI= 172342 
172344 KIPAR2= 172344 
172346 KIPAR3= 172346 
172350 KIPAR4= 172350 
172352 KIPARS= 172352 
172354 KIPARG= 172354 
172356 KIPAR7= 172356 
;*KERNEL ‘D'* PAGE ADDRESS REGISTERS 

172360 KDPARO= 172360 
172362 KDPARI= 172362 
172364 KDPAR2= 172364 
172366 KDPAR3= 172366 
172370 KDPAR4= 172370 
172372 KDPARS= 172372 
172374 KDPAR6= 172374 
172376 KDPAR7= 1 


72376 
.SBTTL UNIBUS MAP REGISTER DEFINITIONS 
*THE LOWER 16 BITS OF THE MAP REGISTERS ARE LABELED ‘MAPLXX' 
3 *THE Pres ie OF THE MAP REGISTERS ARE LABELED ‘MAPHXX' 
L 


170200 MAPLOO = 17020 
170202 MAPHOO = 170202 
170204 MAPLO1 = 170204 
170206 MAPHO? = 170206 
170210 MAPLO2 = 170210 
170212 MAPHO2 = 170212 
170214 MAPLO3 = 170214 
170216 MAPHO3 = 170216 
170220 MAPLO4 = 170220 
170222 MAPHO4 = 170222 
170224 MAPLOS = 170224 
170226 MAPHOS = 170226 
170230 MAPLO6 = 170230 
170232 MAPHO6 = 170232 
170234 MAPLO? = 170234 
170236 MAPHO7 = 170236 
170240 MAPL10 = 170240 
170242 MAPH10 = 170242 
170244 MAPL11 = 170244 
170246 MAPH11 = 170246 
170250 MAPL12 = 170250 
170252 MAPH12 = 170252 
170254 MAPL13 = 170254 
170256 MAPH13 = 170256 
170260 MAPL14 = 170260 
170262 MAPH14 = 170262 
170264 MAPL15 = 170264 
170266 MAPH15 = 170266 
170270 MAPL16 = 170270 
170272 MAPH16 = 170272 
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HHnHnnnnnnnnhnnnnnnntnnnnnnn nn nnnnn ne 
~ 
N 
Oo 
lw 
W 
* 


MAPL6=MAPL 06 
MAPH6=MAPHO6 
MAPL 7=MAPL O07 
MAPH7=MAPHO7 


BeBe Bae Be Be Be Be Be Be Be Be Be Be Be Be Be 


SEQUENCE 


21 
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TRAP CATCHER 











1486 


000000 


000174 
000000 
000000 


000137 010000 
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-SBTTL TRAP CATCHER 


7 *ALL UNUSED LOCATIONS FROM 4 = 776 CONTAIN A ‘'.+2,HALT"’ 
:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTER RUPTS 
:LOCATION Q/ CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 


DISPREG: .WORD 0 3SOFTWARE DISPLAY REGISTER 
SWREG: .WORD 0 3SOFTWARE SWITCH REGISTER 
« SBTTL STARTING ADDRESS(ES) 


Q@ASTART ;; JUMP TO STARTING ADDRESS OF PROGRAM 


SEQUENCE 


22 
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acm HOOKS 


1488 -SBTTL ACT11 HOOKS 


TOR CEESESESASELELES SESE REESE ERE R SRR ERR RA RRR RRR RRR ARR RRA RRR ARDS OD 


SHOOKS REQUIRED BY ACT11 
$SVPC=. 


000204 SAVE PC 

000046 aa 
000046 021676 SENDAD ::1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$EOP 
000052 000000 "WORD 0 532)SET LOC.52 TO ZERO 

000204 "=$SVPC + RESTORE PC 





CKKUACO 11/24/44 UBI MAP 
COMMON TAGS 


Oo 
Las) 


nd aed cl a a ce at a ca ca a cd cn cl ee eed 
ah ant anh oath 
RRANSRRVSSE AVSSK 


™ 


— SS os es SS es SS 9 SS Ss Ss SS SS YS SYS SS 


S8S888S888888SSSSsss 


23544 
RYETUN 
UEBWNOS 


— — - a 
SX VSKRVS 


Ok ke a ad od od 
Se3s 


S8888888ss S88Ssss 


ARNO 
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-SBTTL COMMON TAGS 


PRR ERREREEEREEE REE EEE EERE EERE EAE RE RERREREER EERE REE 


TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
IN THE PROGRAM. 


* THIS 
; *USED 


SAUTOB: 


377 $BELL: 





leleleleleleleleleler jeleleleleleleia) 


09 
[ye 
ad 
v 


Nm 


a 


° as eee 55 55: eee 
o 58 0° 
Oooooceo OCOCOCOCOCOeF 9C0O-—NVoO 


<207><377><377> 


SEQUENCE 24 


START OF COMMON TAGS 
SICONTAINS PASS COUNT -DPMO0T 
TECONTAINS THE TEST NUMBER 


$3 ERROR FLAS 

3;CONTAINS SUBTEST iTERATION COUNT 
3:CONTAINS SCOPE LOOP ADDRESS 
CONTAINS SCOPE RETURN FOR ERRORS 
;;CONTAINS TOTAL ERRORS wee 


:3 TEST 
T:CONTAINS PC OF LAST ERROR oe 
3;CONTAINS ADDRESS OF ‘GOOD' 

;:CONTAINS ADDRESS saul DATA. 


;:CONTAINS ‘BAD’ DATA 
; ;RESERVED--NOT TO BE USED 


3 ;AUTOMATIC MODE INDICATOR 
3: INTERRUPT MODE INDICATOR 


ADDRESS OF SWITCH REGISTER 
- EBD OF #2 toed REGISTER 
TTY KBD STATUS 
::TTY KBD BUFFER 
T:TTY PRINTER STATUS REG. ADDRESS 
ieTTy Aco ol BUFFER REG. nsw hry 
a ally Bae L CHARACTER FOR FILLS 
::CONTAINS # OF FILLER CHARACTERS REQUIRED 
33 INSERT FILL CHARS. AFTER A ‘LINE FEED" 
"TERMINAL AVAILABLE’ FLAG (BIT<07>=0=YES) 
T:CONTAINS THE ADDRESS FROM 
:z:WHICH (S$REGO) WAS OBTAINED 


ST ONTAING ((SREGAD) +0) 
CONTAINS (($REGAD) +2) 


7MAX. NUMBER OF ITERATIONS 
STESCAPE ON ERROR ADDRESS 
3:CODE FOR BELL 
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OMMON TAGS 


C 
001222 077 SQUES: .ASCII /?/ 7 QUESTION MARK 
001223 015 $CRLF: .ASCII <15> Shp arr RETURN 
001224 012 000 SLF: ASCIZ <12> 3eLINE FEED 
: PITTI IT titi iti titi cirri iiiiitit ti iitii iii, 
001226 900000 PADRSL: -WORD 0 HOLDS THE LOWER 16 BITS OF A 22 BIT ADDRESS 
[GENERATED FOR TYPE OUT. 
001230 000000 PADRSH: .WORD 0 ;HOLDS THE UPPER 6 BITS OF A 22 BIT ADDRESS 
[GENERATED FOR TYPE OUT. 
001232 000000 000077 ADRAND: .WORD 0,77 [LOGICAL AND OF FAILING ADDRESSES 
1236 000000 000077 ADDROR: .WORD 0,77 SLOGICAL OR OF FAILING B. aeteeeeen: 
001242 000000 000077 DATAND: .WORD 0,77 [LOGICAL AND OF BAD DAT 
001246 000000 000077 DATAOR: .WORD 0,77 ;LOGICAL OR OF BAD DATA. 
001252 000000 PATAND: .WORD 0 ;LOGICAL AND OF PATTERN LOADED 
001254 000000 PATTOR: .WORD 0 LOGICAL OR OF PATTE 
001256 000000 LOWEST: .WORD 0 Ss PUT IN PAR TO CAUSE THE 
;LOWEST USABLE MAP REGISTER TO RESPOND 
001260 000000 HIGEST: .WwORD 0 3 NUMBER TO PUT_IN PAR TO CAUSE THE 
;HIGHEST USABLE MAP REGISTER TO RESPOND 
001262 000000 UBMLOW: .WORD 0 ;HOLDS NUMBER TO PUT IN PAR TO SIGNAL 1ST 
zADDRESS OF UNIBUS MEMORY 
001264 000000 UBMHI: .WORD 0 ;HOLDS NUMBER TO PUT IN PAR TO SIGNAL LAST 
SBLOCK OF 4k OF UNIBUS MEMORY 
001 000000 MMRLOW: .WORD 0 ;HOLDS LOWEST MAP REGISTER NUMBER FROM ‘LOWEST: 
001270 000C00 MMRHI: .WORD 0 ;HOLDS HIGHEST MAP REGISTER NUMBER FROM *HIGEST . 
001272 000000 UBRLOW: .WORD 0 HOLDS LOWEST MAP REGISTER NUMBER FROM ‘UBMLOW:° 
001274 000000 UBRHI: .WORD 0 HOLDS HIGHEST MAP REGISTER NUMBER FROM “UBMHI:° 
001276 000000 BUPWIN: .WORD 0 ;HOLDS LOWEST USEABLE PAR OF UPPER WINDOW 
1300 000000 LREGL: .WORD 0 ;HOLDS 1/0 PAGE ADDR OF LOW 16 BITS OF 
3 THE LOWEST USABLE MAP REGISTER 
001302 000000 LREGU: .WORD 0 [HOLDS 1/0 PAGE ADDR OF HIGH 6 BITS 
OF THE LOWEST USABLE MAP REGISTER 
001304 000000 LMAH: .WORD 0 [LOCATION TO HOLD LMA HIGH REGISTER CONTENTS 
1306 000000 LMAL: .WORD 9 [LOCATION T D LMA LOW REGISTER CONTENTS 
001310 000000 UBM24L: .WORD 0 LOCATION USED TO HOLD LMA LOW EXPECTED VALUE 
001312 000000 UBM24U: .WORD 0 LOCATION USED TO HOLD LMA HIGH EXPECTED VALUE 
001314 000000 UBM24P: .WORD 0 [LOCATION USED TO HOLD LMALOW PRELOAD VALUE 
001316 000000 NUMOFK: .WORD 0 ZLOCATION TO HOLD OF K UB MEMORY 
1320 000000 ERRCNT: .WORD 0 ;MULTIPLE ERROR ERROR COUNTER 
001322 000000 CNTR: .WORD 0 ZAUXILIARY COUNTER 
001324 000000 FLAG: .WORD 0 FLAG TO INDICATE TO LAST PROGRAM PASS N 
1326 000000 CPUEXF: .WORD 0 SHOLDS THE EXPECTED CPU ERROR CODE 
001330 000000 PCPUER: .WORD 0 HOLDS RECEI CPU ERROR CONDITION 
001332 000000 PPARER: .WORD 0 HOLDS RECEIVED PARITY ERROR COND i JON 
001334 000000 PCONTR: .WORD 0 HOLDS CONTENTS OF CONTROL REGIS’ :R 
001336 000000 PMAINT: .WORD 0 HOLDS CONTENTS OF MAINTENENCE F .GISTER 
001340 000000 BADPC: .WORD 0 HOLDS PC OF INST THAT 
001342 000000 OLDPC: .WORD 0 7HOLDS THE RETURN ADDRESS AFTER A TRAP 
001344 000000 OLDPS: .WORD 0 HOLDS THE OLD PROCESSOR STATUS 
1346 000000 OLDPSW: .WORD 0 HOLDS OLD PSW FOR TBI TRESTORE 
1350 000000 PMMRO: .WORD 0 HOLDS CONTENTS OF MMRO AFTER TRAP 
001352 000000 PMMR1: .WORD 0 ;HOLDS CONTENTS OF MMR1 AFTER TRAP 
1354 000000 PMMR2: .WORD 0 ;HOLDS CONTENTS OF MMR2 AFTER T 
001356 000000 RSIZE: .WORD 0 ;WILL HOLD P.A.R. DATA FOR TOP OF MEMORY 
1360 000000 RETRY: .WORD QO sRETRY FLAG IN CASE OF PARITY ABORTS 
001362 000000 NXTTST: .WORD 0 one 0 ESCAPE ADDRESS ON 
001364 000200 DATA -WORD 200 [PATTERN TO BE USED TO LOAD INTO MEMORY 





1495 001374 
1496 


1497 
1498 001376 
1499 001400 
1500 001402 
1501 001404 
1502 


1503 

504 001406 
505 001410 

1412 
414 


: 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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024032 
032654 


C24117 
030032 
032224 
032654 
024171 
030061 
022234 
032654 
024277 
030160 
032250 
032661 
024357 
030255 
032264 
032666 


680<12 


032302 
032674 
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SEQUENCE 26 


.SBTTL ERROR POINTER TABLE 
:*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
ORMAT NUMB 


:*THE INF 


> *NOTE1: 


: *NOTE2: 


7 ITEM 2 


7 ITEM 3 


ITEM 4 


SITEM 5 


7 ITEM 6 


ON IS OBTAINED BY USING THE INDEX 
:*LOCATION SITEMB. 
IF S$ITEMB IS 0 


ER FOUND IN 
N THE 1 PERTINENT. 


EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


EM 
DH 
DT 
DF 
WORD EMI 
«WORD  DH1 
«WORD DT1 
-WORD  ODF1 
WORD EM2 
-WORD DH2 
«WORD DT2 
-WORD ODF1 
WORD EM3 
-WORD  DH3 
WORD 0T3 
WORD ODF1 
-WORD EM4 
WORD DH4 
«WORD DT4 
WORD DF4 
. EMS 
-WORD DHS 
-WORD DT5 
-WORD DF5 
-WORD EM6 
-WORD DH6 
WORD ODT6 
«WORD DF6 


3:POINTS TO THE ERROR MESSAGE 
3;POINTS TO THE DATA HEADER 
3;POINTS TO THE DATA 
3;POINTS TO THE DATA FORMAT 


NOT THE CORRECT C®°U TRAP gs pite THROUGH ERRVEC (#004) 
OC RUER. EXPECTD TESTNO PC AT ABORT 
PCPUER, tr he -STESTN,BADPC ,0 


io 
° ° e Ld 


UNEXPECTED CPU TRAP THROUGH ERRVEC (#004) 
:RECEIVD TESTNO PC AT ABORT 
PCPUER, ‘inet -BADPC 0 


° e e 


MEMORY MANAGEMENT TRAP, MEMORY MANAGEMENT STATUS REGISTERS 
;STATUS AUTOI/D VIRTADR 

:REGISTR = sy Jae REGISTR TESTNO PC AT ABORT 

PMMRO , PMMR 1 time -STESTN,BADPC ,0 


; SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
; REGADRS RE S 
“‘OR'' S TESTNO ERR PC 


#ERROR 
ZADDROR, ae ae eSTESTN, SERRPC ,0 


> SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS 
;REGLOAD REGLOAD REGDUAL RE 
“‘OR"* “"AND** ERRORS TESTNO 


 ADDROR, ADRAND , DATAOR,,DATAND, ERRCNT ,STESTN,O 
Se he +. os ae 


‘emee OF BIT PATTERN FAILURES IN LOWER 16 BITS OF MAP REGISTERS 
MAPREG MAPREG EXPECTD EXPECTD RECEIVD RECEIVD 

> OR" *"AND"* "OR" “"AND'' =“ OR" #ERRORS TESTNO 

: ADDROR. pape n gParren. + ee -DATAOR ,DATAND ,ERRCNT ,STESTN,O 


3 
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ERRC 2 POINTER TABLE 


1530 s ITEM 7 

1531 001446 024554 » WORD —EM7 : SUMMARY OF BIT PATTERN FAILURES IN UPPER 6 BITS OF MAP REGISTERS 
1532 001450 030412 ~ WORD DH6 ;MAPREG MAPREG EXPEC TD EXPECTD RECEIVD RECEIVD 

1533 *‘OR'’ *"AND*' “‘or'’ *"AND"' ‘or'' *"AND*' RORS TESTNO | 
1534 001452 032302 ~ WORD DT6 ‘ ADDROR, ADRAND ,PATTOR,PATAND,DATAOR,DATAND,ERRCNT ,STESTREO 
1935 001454 032674 “WORD DF6 : 2. de 0, 0. 6, 0, 1, 0 

1537 sITEM 10 

1538 001456 024655 .~ WORD EM10 ;CAN'T GET TO MAIN MEMORY FROM UNIBUS WITH THE MAP OFF 
1539 :SO JUMPING TO THE SIZE JUMPER TEST FOR VERIFICATION 

1540 001460 0350601 WORD DH10 ;TESTNO ERR PC 

1541 001462 032324 ~ WORD DT10 s$TESTN, SERRPC,0 

1542 00 032654 "WORD DF 1 70, 0 

1543 

1544 ; ITEM 11 

1545 001466 025027 ~ WORD EM11 ; SUMMARY OF COUNT PATTERN FAILURES ON THE UNIBUS DATA PATH 
1546 001470 030626 ~ WORD DH11 :EXPECTD EXPECTD RECEIVD RECEIV VD 

1547 *‘OR’' “"AND'' *“‘or'' ‘AND'' #ERRORS TESTNO 

1548 be 032334 ~ WORD DT11 “ PATTOR, PATAND ,DATAOR,DATAND,ERRCTN, $TESTIN,O 

1549 001474 032704 "WORD DF11 : 0, 0, 0, 0. i, 0 

1551 s ITEM 12 

1552 001476 025121 ~ WORD EM12 UNIBUS MAP IS RELOCATING WHEN NOT ENABLED 

1553 001500 030601 ~ WORD DH10 “TES STNO ERR PC 

1554 001502 032324 ~ WORD DT10 *$TESTN, SERRPC,0 

1555 001504 032654 "WORD ODF 1 : 0, 0 

1557 7 1TEM 13 

1558 001506 025173 ~ WORD —EM13 ; CANNOT USE ANY OF THE MAP REGISTERS OR PHYSICAL 

1559 * ADDRESS BIT14 IS STUCK LOW, MUST RESTART PROGRAM 

1560 : IF YOU DON'T LOOP ON THIS PROBLEM. 

1561 001510 030601 ~ WORD DH10 * TESTNO ERR PC 

1562 001512 032324 .~ WORD DT10 *$TESIN, SERRPC,0 

1563 001514 032654 .~ WORD DF1 : 0, 0 

1564 

1565 ; ITEM 14 

1566 091516 025377 .~ WORD EM14 > SUMMARY OF UNIBUS ADDRESS ERRORS, WITH MAP RELOCATION DISABLED 
1567 001520 030626 .- WORD DH11 ZEXPECTD Sr RECEIVD RECEIV VD 

1568 *“‘OR’' ‘OR’ 'AND'' #ERRORS TESTNO 

1569 001522 032352 ~ WORD DT14 * ADDROR. ADRAND, SATAOR. DATAND,ERRCNT ,$TESTN,O 

1570 001524 032712 “WORD DFI4 : 2, 2, 0,0, 1, 0 

1572 ; ITEM 15 

1573 091526 025502 .~ WORD EM15 ;MAIN MEMORY Hwy OUT OVER THE UNIBUS DID NOT OCCUR PROPERLY. 
1574 001530 030763 - WORD DH15 ;CONDITN CONDITN 

1575 *EXPECTD RECEIVD TESTNO ERR PC 

1576 001532 032370 ~ WORD DT15 7 CPUEXP,PCPUER, $STESTN, SERRPC,0 

1377 001534 032654 “WORD DF 1 : 0, 0, 0, 0 

1579 S1TEM 16 

1580 001536 025575 ~ WORD EM16 : SUMMARY OF DUAL MAPPING ERRORS 

1581 001540 030626 WORD DH11 ZEXPECTD EXPECTD RECEIVD RECE IVD 

1582 “‘OR’' #ERRORS TESTNO 
1583 001542 032352 - WORD DT14 “ ADDROR. ADRAND , DATAOR,,DATAND, SERRPC .STESTN,O 

1584 001544 032666 "WORD OFS eM te Me oe ee 
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ERROR POINTER TABLE 


3: ITEM 17 
46 025673 .WORD EM17 :NO UNIBUS “ae EXISTS 
1587 001550 030601 -WORD DH10 TESTNO ERR PC 
1588 001552 032324 -WORD O0T10 “$TESIN, SERRPC,0 
1255 001554 032654 -WORD  ODF1 ; 0. @ 
1991 : ITEM 20 
1992 001556 025723 -WORD EM20 Lo yg ey LOGIC TESTS TRAP TO LOCATION 114 DID NOT OCCUR 
1593 001560 030601 -WORD DH10 STESTNO ERR PC 
1594 001562 032324 -WORD 0T10 *$TESTN, SERPPC ,0 
uF a4 001564 032654 -WORD  ODF1 ; 3. @ 
1597 3; ITEM 21 
1598 001566 026022 .~ WORD EM21 ; INTERRUPT/ABORT TESTS R4& WAS OVERWRITTEN WITH 
1599 :DATA INDICATING THAT INSTRUCTION WAS NOT ABORTED 
1600 001570 030601 -WORD DH10 ;TESTNO ERR PC 
1601 001572 032324 .~ WORD DT10 *$TESIN, SERRPC,0 
1s 001574 032654 -WORD  ODF1 ; 0, 0 
1604 ; ITEM 22 
1605 901576 026100 . WORD EM22 ‘cle bon he TESTS TRAP DID NOT OCCUR DUE TO ABORT 
1606 001600 030601 -WORD DH10 :TESTNO ERR PC 
1607 001602 032324 .~WORD DT10 *$TESIN, SERRPC,0 
Mpg 001604 032654 -WORD ODF1 : 0, 0 
1610 s ITEM 23 
1611 001606 026166 .WORD EM23 ;LMA NOT LOADED gr try 
1612 001610 031042 .- WORD DH23 :TESTNO ERR PC’ LMAEXP LMARCV 
1613 001612 032402 -WORD DT23 *$TESTN, SERRPC , EADRES,,EADRS2,0 
iia 001614 032720 -WORD DF23 20 & d& 2 
1616 sITEM 24 
1617 001616 026216 -WORD EM24 7 LMA FORCE JUMPER BIT NOT ZERO 
1618 001620 031103 . WORD DH24 TESTNO ERR PC LMAEXP- LMARCV 
1619 001622 032414 .~ WORD DT24 “$TPSIN, SERRPC ,$REG1.LMAHI ,0 
io 001624 032654 -WORD  ODF1 ; 6 & 3 § 
1622 ITEM 25 
1623 001626 026254 -WORD EM25 7LMA FORCE JUMPER BIT NOT SET 
1624 001630 031103 -WORD DH24 :TESTNO ERR PC LMAEXP LMARCV 
1625 001632 032414 -WORD DT24 SSTESTN, SERRPC, $REG1,LMAHI ,0 
1oe8 001634 032654 -WORD  ODF1 ; 0. 0. 0. 9 
1628 Zs ITEM 26 
162° 001636 926311 -WORD EM26 3;LMA_ CONTROL ial INCORRECT 
1630 001640 0631103 -WORD DH24 3TESTNO ERR PC LMAEXP LMARCV 
1631 001642 032426 -WORD DT26 S$TESTN, SERRPC, STMPO. $REG2.0 
10% 001644 032654 -WORD ODF1 ; 0. 0, 0, 0 
1634 7 ITEM 27 
1635 001646 026344 -WORD EM27 ;FORCE JUMPER BIT FAILS TO meen MAP REGISTER STATUS TO DEFAULT 
1636 001650 031142 -WORD DH27 :TESTNO ERR PC LMARCV KIPAR 
1637 001652 032440 -WORD DT27 *$TESTN, SERRPC, $TMPO,KIPARG , _ 
1638 001654 032654 .» WORD DF 1 : 0, 0, 0 
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1639 ITEM 30 

1640 001656 026444 . WORD EM30 ;KIPARS NOT LOADED PROPERLY 
1641 001660 031201 .~ WORD DH30 ;TESTNO ERR PC PRSEXP PRSRCV 
1642 001662 032452 «WORD DT30 sSTESTN, SERRPC,$TMP5,KIPARS,0O 
1643 001664 032654 . WORD DF1 ; 0 


° ° Cd ° 





eee ee 


ee 
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ERROR POINTER TABLE 


| 
te 001666 ER200: ;THIS IS THE STARTING POINT FOR ERROR MESSAGES | 


:201 THROUGH 377. THEY ARE USED FOR MULTIPLE 
1646 “ERROR MESSAGES. . 
1647 
1648 :1TEM 201 
1649 001666 026477 .WORD —M201 =; THE FOLLOWING REGISTERS TIMED OUT WHEN READ 
1650 001670 031240 “WORD DH201 :REGADRS TESTNO ERR PC 
1651 001672 032464 "WORD DT201 :EADRES,$TESTN,$ERRPC,0 
1658 001674 032724 ‘WORD DF201 : 2, 0, 0 
653 
168 : ITEM 202 
1655 001676 026553 -WORD EM202 : THE FOLLOWING ARE DUAL ADDRESSING ERRORS IN THE UNIBUS MAP 
1656 001700 031267 “WORD DH202  =MAPREG MAPR EG NON=ZER 
TESTING CONTNTS TESTNO ERR PC 

1658 UU1/02 032474 ~WORD DT202 “EADRES., EADRSS- STMP3, $TESTN, SERRPC,0O 
1659 001704 032674 “WORD DF6 ee oe ee 
1661 SITEM 203 
1662 001706 026446 .~ WORD EM203 ;THE BIT PATTERN THROUGH THE MAP REGISTERS FAILED 
1663 001710 031376 .~ WORD DH203 ;REGADRS PATTRN EXPCTD RECEVD TESTNO ERR PC 
1664 001712 03251 “WORD PT203 :EADRS2,$TMPO,$REG4,$REG3,$TESIN, SERRPC,0 
Ms ar 001714 032724 ~ WORD DF201 cc & Be & BO & 

: ITEM 204 
1668 001716 026727 .WORD M204 =; UNIBUS DATA PATH COUNT PATTERN FAILURE 
1669 001720 031457 “WORD DH204  :EXPECTD RECEIVD ADDRSLOAD TESTNO ERR PC 
1670 001722 032526 “WORD DT2046 :$TMPO,$TMP1,$REG2,$TESTN, SERRPC 0 
1671 001724 032732 “WORD DF204 :0, 0, 3, 0, 0 
1673 : ITEM 205 
1674 001726 026776 .~ WORD EM205 ;UNIBUS ADDRESSING ERRORS, MAP RELOCATION DISABLED 
1675 001730 031530 "WORD DH205 ADDRESS ADDRESS 
1676 SEXPECTD RECE TESTNO ERR PC 
1677 001732 032542 .WORD DT205 :EADRES,EADRS2, STESTN. SERRPC,0 
1678 001734 032712 . “WORD DFI4 : 2, 2, 0, 0 
1680 ZITEM 206 
1681 001736 027060 .WORD M206 ;DATA PATTERN NOT CORRECT 
1682 001740 031615 "WORD DH206 :ADDRESS EXPCTD RECVED TESTNO ERR PC 
1683 001742 032554 "WORD DT206 :EADRES,$TMP4,$TMPS,$TESTN,SERRPC,2 
1684 001744 032724 “WORD DF201 : 2, 0, U, 0, 0 
1686 Z ITEM 207 
1687 001746 027111 .WORD EM207  ;REFERENCED MAP REGISTER 0 WITH ADDRESS ONE BIT DIFFERENT THAN 17770 
1688 001750 031665 “WORD DH207 :ADDRUSED BITDIFF TESTNO ERR PC 
1689 001752 032570 "WORD DT207 :EADRES, $REGO,$TESIN, SE RRPCS 0 
1690 001754 032724 “WORD OF201 :2, 0, 6, 0 
1692 ZITEM 210 
1693 001756 027220 .WORD £M210 ; MAP_ REGISTER UNDER TEST DID NOT RESPOND IN DUAL MAPPING TEST 
1694 001760 031726 "WORD DH210 :TESTNO ERR PC MAPREGADR 
1695 001762 032602 "WORD DT210 :$TESTN,SERRPC,EADRES,O 
169% 001764 032737 “WORD DF210 : 0, 0,2 





1697 
es 001766 
1700 001770 
1701 
1702 001772 
1703 001774 
1704 


1705 
1706 001776 
1707 
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027320 
031760 


032612 
032724 


027456 
031760 
032612 
032724 
027611 
032654 
027702 


032654 


7 ITEM 211 
. WORD 


. WORD 


. WORD 
. WORD 


7 ITEM 212 
. WORD 


. WORD 


. WORD 
. WORD 


7 ITEM in 
“WORD 


. WORD 
- WORD 


ITEM 214 


*. 
MACRO M1113 24=APR=81 10:48 PAGE 27 


EM211 
DH211 
DT211 
DF 201 


EM212 


SEQUENCE 31 


RELOCATION THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION 
; TEST BEING RUN OVER UNIBUS 

SCORRECT EXPECTD phch ip 

ADDRESS _DATA OM UB TESTNO ERR PC 

EADRES, $REG3, “$REG2, STESIN, SERRPC,0 


MAIN MEMORY TIME OUT OVER THE UNIBUS DID NOT OCCUR PROPERLY. 
STEST BEING +5 OVER UNIBUS 
:CONDITN CONDITN 
:EXPECTD RECEIVD TESTNO ERR PC 
ee eo esa 


:MAP REGISTER ENABLED WHEN DDW SAYS IT SHOULD BE DISABLED 
TESTNO ERR PC REG NO DDWDAT DDWADR 
: STESTN, a eae: -STMP1 ,$REGS,0 


:MAP REGISTER DISABLED WHEN DDW SAYS IT SHOULD BE ENABLED 
TESTNO ERR PC_ REG NO DDWDAT DDWADR 
:STESIN, ae wit -$T*P1,$REGS,0 


~ 


G 
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SOFTWARE SWITCH REGISTER LOCATION 


-SBTTL SOFTWARE SWITCH REGISTER LOCATION 
; SAVE ADDRESS LOCATION 


1724 
1725 002026 -$Y=, 
1726 000176 .=176 ZADDRESS TO SOFTWARE SWITCH REGISTER LOCATION 
1727 000176 000000 $SSWR: .WORD 0 ;LOCATION FOR SOFTWARE SWITCH REGISTER 
=.$Y ;RETURN TO 2REVIOUS ADDRESS LOCATION 


1728 002026 =. 
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1729 -SBTTL ERROR MESSAGE TYPE OUT ROUTINE 
1730 SLA ARRREAEREEREERE REE EEE REE EERE ERE EERE REE 
1731 :* 
1732 3* THIS SUBROUTINE IS CALLED BY THE ERROR HANDLER TO TYPE 
1733 ;* THE ERROR MESSAGES. IT PICKS UP THE ITEM BYTE ($ITEMB) NUMBER 
1734 3* AND USES THAT TO INDEX THROUGH THE ERROR TABLE. THE ERROR 
1735 3* TABLE STARTS AT ‘‘SERRTB’’ AND HAS FOUR (4) POINTERS FOR EACH 
1736 ;* ENTRY, ‘EM’, "DH', 'DT’, ‘DF*. THE ‘EM’ POINTS TO THE ERROR 
1737 is MESSAGE WHICH IS AN ASCIZ STRING. THE 'DH' POINTS TO THE DATA 
1738 :* HEADER WHICH IS err ASCIZ ee THE ‘DT" POINTS TO THE 
1739 i* DATA TABLE WHICH IS A GROUP OF WORDS CONTAINING THE ADDRESSES 
1740 3* OF THE DATA TO BY TYPED. THE FORMAT OF THIS DATA IS 
1741 ;* CONTROLLED BY THE rs WHICH IS THE POINTER TO THE DATA FORMAT. 
1742 i* THE DATA FORMAT IS A GROUP OF BYTES WHICH CONTAIN NUMBERS 
1743 oe THAT CORRESPOND bs x beats TYPING FORMATS. 
1744 7* 0 -16 BIT OCTAL FORMAT 
1745 3* 1 -DECIMAL FORMAT 
1746 37% 2 -22 BIT OCTAL FORMAT. DATA IS LOWER 16 BITS OF THE 
1747 3* PHYSICAL ADDRESS, UPPER 6 BITS ARE ADJACENT TO LOWER 16 
1748 7* 3 -22 BIT OCTAL FORMAT. DATA IS THE 16 BIT VIRTUAL 
1749 3* ADDRESS IN KERNEL I-SPACE. 
1750 3* 4 -18 BIT OCTAL FORMAT. DATA IS A 16 BIT NUMBER THAT 
1751 3* WILL BE CONVERTED INTO A UNIBUS ADDRESS BY LEFT 
1752 3* SHIFTING IT 6 BITS. 
1753 :* 5 -16 BIT OCTAL, SUPPRESS ets ZEROS 
1754 i* 6 -16 BIT DECIMAL, SUPPRESS SPACES 
1755 :* IF YOU SHOULD HAVE A NEED TO ye TYPE A STRING OF 
1756 7* NUMBERS, SET UP YOUR CODE THIS WA 
1757 3% MOV A#CONTINJUE.-(SP) ;MOVE THE VADFRESS, OF THE INSTRUCTION AFTER THE 
1758 3* + JUMP TO THE STA 
1759 3* MOV RO,-(SP) Zs SAVE RO 
1760 i* MOV R1,-(SP) ZAND F1 ON THE STACK 
1761 3* i DTNAME ,RO sMOVE THE ADDRESS OF THE DATA TABLE TO RO 
1762 i* TYPDAT ; SUBROUTINE IDENTIFIED IN CENTER OF THIS ROUTINE 
1763 * CONT IMQE: NEXT INSTRUCTION 
1764 s AT A CONVENIENT SPOT, ALOCATE THE FOLLOWING: 
1765 S*DINAME: .WORD DTLIST,DFNAME  ; IDENTIFY THE LIST NAME AND DATA FORMAT BELOW 
1766 : «DF NAME : : gBYTE N.N.NLNJETC. CONSTRUCT YOUR OWN DATA FORMAT LINE 
3* 
ha, ; *DTLIST: VAR1,VAR2,VAR3,VAR4,....,$CRLF,0 ; VARIABLES YOU WANT TYPED 
1770 é SERRA RARER EEE EEE EERE EEE 
1771 002026 010046 ERTYPE: MOV RO,-(KSP) ;SAVE RO ON STACK 
1772 002030 005000 CLR RO [CLEAR RO 
1773 002032 113700 001112 MOVB $1TEMB,RO ;PUT ITEM NUMBER IN RO 
1774 002036 001004 BNE 1 ;BRANCH IF IT IS NON-ZERO 
1775 002040 013746 001114 MOV SERRPC ,-(KSP) ;PUT ERROR PC ON STACK FOR TYPING 
1776 002044 104402 TYPOC ; TYPE FAILING PC 
1777 002046 000565 are 13$ :GO TO RETURN 
1778 002050 122700 000177 1$: CMPB #177,R0 ‘SEE IF THIS IS THE PwR we BIT ERROR ;DPMOO1 
1779 002054 001003 BNE 200$ [BRANCH IF NOT TO CALL ERR 
1780 002056 012700 002432 MOV #PMBE CW RO sMOVE ADDRESS OF SPECIAL DATA HEADER TO RO 
1781 002062 000451 BR 210$ [BRANCH TO CALL ERROR 
1782 002064 005300 200$: DEC RO ;ADJUST ITEM NUMBER TO BE A POINTER 
1783 002066 072027 000003 ASH #3,RO TLEFT SHIFT ITEM NO. 3 PLACES 
1784 002072 100041 BPL 22 ;BRANCH IF ITEM NUMBER IS LESS THAN 200 
1785 002074 023727 001320 000020 CMP ERRCNT , #20 zi* SEE IF 20 (OCTAL) ERRORS HAVE PRINTED 


Sn eee Eg RE 


33 


7 
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1786 002102 002410 BLT 40$ 37% BRANCH TO PRINT THE ERROR IF LESS 
1787 002104 14 BEQ 41$ 77% BRANCH TO TYPE NO MORE DATA LINES IF EQU 
1788 002106 062766 000004 000002 ADD #4 ,2(KSP) z2* CORRECT PC RETURN TO RETURN AFTER <CRLF> A CRINT 

1789 002114 000542 BR 13$ t:* GO TO RETURN 

1 002116 104401 007264 41$: TYPE ,NOMORE zz* TYPE MESSAGE TO ANNOUNCE NO MORE PRINTING OF ERRORS 

1791 002122 00053 BR 3 32* GO TO RETURN 

1792 002124 022737 000001 001320 40$: CMP #1, ERRCNT zz* SEZ IF THIS IS THE FIRST ERROR 

1793 002132 001415 BEQ 1$ 37% BRANCH IF IT WAS AND GO TYPE ERROR MESSAGE 

1794 0021 032777 000200 176774 BIT #SW7,aSWR sSEE IF SWITCH 7 IS UP 

1795 002142 001404 BEQ ZBRANCH IF SWITCH NOT UP AND TYPE DATA 

1796 002144 062766 000004 000002 ADD #4,2(KSP) SKIP ‘TYPE ,$CRLF* IF Sw 7 IS UP 

1797 : INHIBIT MULTIPLE ERROR TYPEOUTS 

1798 002152 000523 BR 13$ ‘BRANCH TO EXIT 

1799 002154 042700 177400 208: BIC #177400,RO CLEAR UPPER BYTE OF RO 

1800 0021 062700 001672 ADD #ER200+4,R0 ‘POINT TO DATA TABLE ENTRY 

1801 002164 26 BR 5$ :60 TYPE DATA TABLE 

1802 002166 042700 177000 21$: BIC #177000,R0 CLEAR UPPER BYTE OF RO 

1803 002172 062700 000300 ADD #<ER200-$ERRTB>, Ro sADD DIFFERENCE OBE TWEEN 

1804 ITEM 1 AND ITEM 201 

1805 :GET POINTER TO ERROR MESSAGE AND TYPE IT 

1806 :1F THE POINTER IS NOT ZERO 

1807 002176 104401 001223 228: TYPE »SCRLF TYPE A <CRLF> 

1808 002202 062700 001366 ADD #S$ERRTB,RO [ADD BASE OF ERROR TABLE 

1809 0022 012037 002216 210$: MOV (RO) +,2$ :P M MESSAGE POINTER IN TYPE STATEMENT 

1810 002212 001404 BEQ 3$ CH IF NO ERROR MESSAGE 

1811 002214 104401 TYPE “TYPE ERROR MESSAGE 

1812 002216 000000 2$: . WOR 0 POINTER TO ERROR MESSAGE 

1813 002220 104401 001223 TYPE »SCRLF sTYPE CRLF 

1814 ::GET THE POINTER TO THE DATA HEADER AND 

1815 ::TYPE IT IF THE POINTER IS NOT ZERO 

1816 002224 012037 002234 3$: MOV (RO)+,4$° T HEADER POINTER IN TYPE STATEMENT 

1817 0022 001404 BEQ 5$ “BRANCH IF NO DATA HEADER 

1818 002232 104401 TYPE TYPE THE DATA HEADER 

1819 002234 000000 4$: . WOR 0 [POINTER TO DATA HEADER 

1820 002236 104401 001227 TYPE »SCRLF sTYPE CRLF 

1821 ::THIS IS THE START OF THE DATA OUTPUT IF THE 

1822 ;:DATA POINTER IS NOT ZERO. RO POINTS TO THE 

1823 ::DATA FORMAT, R1 POINTS TO THE ADDRESS OF 

1824 >: THE DATA WORDS. 

1825 002242 010146 5$: MOV R1,-(KSP) SAVE R1 ON THE STACK 

1 2244 TYPDAT=, 

1827 002244 012001 MOV (RO)+,R1 ;PUT DATA TABLE POINTER IN R1 

1828 002246 001464 BEQ 12$ SBRANCH IF NO DATA TABLE 

1829 002250 012000 MOV (RO) +,RO PICK UP DATA FORMAT POINTER 

1830 002252 105710 o$: TSTB (RO) ids THIS WORD OCTAL 

1831 002254 001003 7$ BRANCH IF NOT 16-BIT OCTAL 

1832 z:WORD IS 16 el OCTAL FORMAT (DF = 12 

1833 002256 013146 Vv a(R1)+,-(KSP) I USM ME T 16-BIT WORD ON STACK 

834 002260 104402 TYPOC 7 TYPE THE WORD ON STACK AS 16 BIT OCTAL 

1835 002262 000451 BR 11$ GET READY FOR NEXT WORD 

1836 002264 122710 000001 7$: CMPB #1, (RO) 71S THE WORD DECI 

1837 002270 00100 BNE 8$ sBRANCH IF NOT DECIMAL 

1838 :WORD IS DECIMAL onal (DF = 1) 

1839 002272 013146 V a(R1)+, ~1KSP) ;PUSH NEXT 16-BIT WORD ON STACK 

1840 002274 104405 TYPDS ;TYPE THE WORD ON STACK AS DECIMAI 

1841 002276 000443 BR ‘GET READY FOR NEXT WORD 

1842 002300 8$: CMPB 1 cro) 71S WORD 22-BIT PHYSICAL ADDRESS 


——-—--— OY 





1843 002304 
1844 


866 
1867 002364 


6 002400 
1877 002402 
1878 
1879 002402 
1880 002404 

002406 
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001012 
012146 
004737 


013146 
104403 
006 


000 
000402 


013146 
605 


002442 
120 
124 
020620 
000 
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023712 
000003 
002326 


000003 


002542 
000004 


002650 
000005 


002426 


040 
002476 
117 
105 


000 
002526 
127 
123 


001114 020552 
000 000 


30$: 
9$: 


108: 


100$: 


110$: 


BNE 





SEQUENCE 35 


9$ ANCH_IF NOT ag! PHYSICAL ADDR 
: WORD 18 eee ty nae t BS FORMAT (DF = 2) 

(R1)+, ~(kSP) PUSH NEXT 16-BIT WORD ON STACK 

PC, $DB20 CONVERT, NUMBER TO OCTAL ASCIZ 


#3, (KSP) SONLY WANT 8 DIGITS 
(KSP) +, 30$ PUT POINTER string *TYPE’ CALL 
TYPE ASCIZ STRING 
; WORD HOLDS POINTER TO ASCIZ STRING 
11$ ;GET READY FOR NEXT WORD 
#3, (RO) SIS THIS A 16-BIT VIRTUAL ADDRESS 
10$ SBRANCH IF NOT 16-BIT VIRT. ADDR. 


;:WORD I$ 22=BIT VIRTUAL ADDRESS FORMAT 
> :KERNEL I-SPACE ASSUMED. (DF = 3) 
IT WORD ON ST 


a(R1)+, ~(KSP) ;PUSH NEXT 16-8 ACK 
PC, TYPVAD 3GO TYPE 22-BIT oe ae FROM 16-BIT V.A 
118 ;GET READY FOR NEXT WORD 
#4,(RO) ;1S THIS A 16 BIT NUMBER TO BE CONVERTED TO 
:AN 18 BIT UNIBUS ADDRESS LEFT SHIFTED 6? 
100$ Wo OVER FORMAT 4 ROUTINE IF NOT 
;:WORD IS FORMAT 4, DATA WORD IS A _UNIBUS 
> :ADDRESS OUTPUT WILL BE 18-BITS WORD LEFT SHIFTED 6. 
PC ,UBADDR CONVERT TO “8-BIT Rare y ADDR AND TYPE 
11 [GET READY FOR NEXT WORD 
#5, (RO) 31S_THIS A 16 BIT NUMBER TO BE PRINTED AS 
SOCTAL WITH LEADING ZEROS SUPPRESSED? 
110$ :BRANCH TO DECIMAL LEADING SPACES SUPPRESS ROUTINE 


WORD I$ FORMAT 5. DATA WORD IS TO BE 
: PRINTED IN OCTAL, LEADING ZEROS i 
a(R1)+, ~(ksP) — NEXT 16-BIT WORD ON STA 
[GO TYPE rete —_——- LEADING ZEROS 


XT WORD 
fe ps IS FORMAT 6. DATA WORD IS TO BE 
PRINTED IN DECIMAL, LEADING SPACES SUPPRESSED. 
@(R1)+,-(KSP) | ;PUSH NEXT 16-BIT WORD ON STACK 


RO ;POINT TO NEXT FORMAT BYTE 


.5e$ sre TWO SPACES 

(R1) THERE ANOTHER WORD? 
6$ ‘BRANCH IF NOT ALL DONE 
(KSP)+,R1 RESTORE R1 

(KSP) +,RO RESTORE RO 

PC RETURN TO ERROR ROUTINE 
> ? TWO SPACES 


PMBE CM, PMBE CH, PMBE CD , PMBE CF 
POWER MONITOR BIT FOUND SET? 
?TESTNO ERR PC CPUERR? 


STESTN, SERRPC, CPSAVE .O 
0,0,0.06 


74 WORDS POINTING TO BELOW 
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1896 .SBTTL CONVERT 16-BIT VIRTUAL ADDRESS TO 22=-BIT PHYSICAL ADDRESS 
1897 3 LER RRR ERE ERR ARE EEE EERE ERE REE RARER EERE REE ERE REE ER 
1898 :* 
1899 :* THIS ROUTINE IS CALLED BY A ‘JSR PC’ AFTER THE VIRTUAL ADDRESS 
1900 3 IS PUSHED ON THE KERNEL STACK. THE V.A. IS iO ce LOADED INTO 
1901 7* R1 AND THE UPPER 3 BITS ARE SHIFTED INTO RO TO SELECT THE 
1902 s* CORRECT KERNEL I=SPACE PAR. THE LOWER 12 BITS OF THE VIRTUAL 
1903 7* APDRESS ARE ADDED TO THE PAR AS THEY ARE BY MEMORY MANAGEMENT 
1904 s® AND THE PHYSICAL ADDRESS IS SAVED IN MEMORY TO BE CONVERTED 
tone 78 TO ASCIZ AND TYPED. 

** 
1907 TEE OEE IIIUUUU ERE RRR RR EER RR RR iit 
1908 002542 104411 TYPVAD: SAVREG SAVE ALL REGISTERS 
1909 002544 016601 000002 MOV 2(KSP) ,R1 ;PUT VIRTUAL ADDR IN R1 
1910 002550 005000 CLR RO ;CLEAR RO FOR CALCULATIONS 
1911 002552 073027 000003 ASHC #3,R0 SLEFT SHIFT RO,R1 3 aoe ty 
1912 002556 006300 ASL RO :LEFT SHIFT RO ONE MORE PLACE 
1913 002560 006001 ROR R1 RIGHT SHIFT R1 SO OFFSET. IS CORRECT 
1914 002562 006001 ROR R1 ;RIGHT SHIFT R1 
1915 002564 006001 ROR R1 RIGHT SHIFT R1 
1916 002566 062700 172340 ADD #K IPARO,RO ;FORM DESIRED PAR ADDR IN _RO 
1917 002572 011003 MOV (RO) ,R3 [PUT CONTENTS OF PAR IN R3 
1918 002574 005002 CLR R2 CLEAR R2 FOR PHYSICAL ADDR CALCULATIONS 
1919 002576 073227 000006 ASHC #6,R2 TLEFT SHIFT <R2,83> 6 PLACES 
1920 002602 060103 ADD R1,R3 [ADD OFFSET IN R1 TO BASE IN R3 
1921 002604 005502 ADC R2 ;ADD ANY POSSIBLE CARRY TO UPPER 6 BITS 
1922 002606 010237 001230 MOV R2,PADRSH ;PUT UPPER 6 BITS OF ADDR IN CORE 
1923 002612 010337 001226 MOV R3,PADRSL ;PUT LOWER 16 BITS OF ADDR IN CORE 
1924 002616 012746 001226 MOV #PADRSL,-(KSP) PUT POINTER TO LOWER 16 BITS _ON STACK 
1925 002622 004737 023712 JSR PC,$DB20 ; CONVERT NUMBER TO OCTAL ASCIZ 
1926 002626 062716 000003 ADD #3, (KSP) SONLY TYPE 8 DIGITS 
1927 002632 012637 002640 MOV (KSP) +, 3$ :PUT POINTER AFTER TYPE INST 
1928 002636 104401 TYPE ;TYPE THE 22-BIT VIRTUAL ADDRESS 
1929 002640 000000 3$: -WORD 0 [THIS WORD HOLDS THE POINTER TO 
1930 THE ASCIZ STRING 
1931 002642 104412 RESREG TRESTORE ALL THE REGISTERS 
1932 002644 012616 MOV (KSP) +, (KSP) ay ONLY RETURN ADDR ON STACK 


1933 002646 RTS PC ;RETURN TO ERROR HANDLER 
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SEQUENCE 37 


. SBTTL SUBROUTINE TO CONVERT WORD TO A UNIBUS ADDRESS AND TYPE 


LERAAARARA RRA EEE E ER ERAE RARER REAR ERERREERRERERE REE 


TR THIS SUBROUTINE IS USED TO CONVERT THE A WORD PUSHED 
:*ON THE STACK INTO A UNIBUS ADDRESS AND TYPE IT AS A 
IT USES R1 & RO AND LEAVES 


:*6 DIGIT 
: ALL OTHER REGISTERS UNCHANGED. 


SERRE AREER ERAK AERA EEEREEH 


NUMBER. 


(BADDR : SAVREG 
MO 


3$: 


2(KSP) ,R1 


Ss 
APADASL =(KSP) 


.* $DB20 
#5. (KSP) 
(KSP)+,3$ 


(KSP) +, (KSP) 
PC 


;LOAD 16 BIT ADDRESS INTO R1 
CLEAR RO FOR CALCULATIONS 
‘PUT SHIFT <RO:R1> 6 PLACES 


T LOWER 16 BITS IN PADRSL 

T UPPER 6 BITS IN PADRSH 
:PUSH POINTER TO WORDS ON STACK 
; JUMP TO erty ROUT INE 
SONLY USE LOWER 6 CHARS. 
PUT POINTER AFTER TYPE CALL. 


;HOLDS POINTER TO FIRST CHAR. 


;LEAVE ONLY RETURN ADDRESS ON STACK 
;RETURN TO ERROR TYPE ROUTINE. 


se —————— -SY————e———e————— ee —_-  ?rrnrrrrs 
a 
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1956 .SBTTL TURN OFF AND SAVE T-8IT 
1957 eetirirititiiiitititittitiiitiiiiiiii irre 
1958 aie i Ae ate gg ont i oi 
1959 3* **SUBROUTINES UNIQUE TO THIS PROGRAM** 
1960 PLR RRR E EERE REE ERE ARATE EEE 
1961 LEAR EERE EEE RARER RARER EERE REREAD 
ieee LLU REET A AREER EERE ARE EEE 
1964 3* 
1965 3* THIS TRAP ROUTINE IS REACHED BY THE TRAP CALL ‘TBITO'. IT IS 
1966 se USED TO TURN OFF THE T=-BIT IF IT IS ON. THE PROCESSOR STATUS 
1967 3* IS SAVED IN ‘‘OLDPSW'' SO THAT THE T-BIT CAN BE RESTORED TO ITS 
1oat s® PREVIOUS STATUS WHEN CONDITIONS WARRANT. 

* 
N Cee ere 6 Ninel sce emg ny rte meen oe gap rer te 
19 000020 TBIT=BIT4 ;T-BIT | BI TOS IN PROC. STATUS 
1992 002726 032766 000020 000002 TBITOF: BIT #TBIT,2(KSP) 1S THE T-BIT ON? 
1973 002734 001406 BEQ 1$ BRANCH TO ag! IF IT IS NOT ON 
1974 002736 016637 000002 001346 MOV 2(KSP),OLDPSW ;SAVE sa PSW FOR RESTORING T BIT 
1975 002744 042766 000020 000002 BIC #TBIT,2(KSP) : CLEAR T BIT 


1976 002752 000006 1$: RTT ;RETURN TO PROGRAM 








N_ 3 
CKKUACO 11/24/44 UBI MAP MACRO M1113 24=APR=81 10:48 PAGE 33 SEQUENCE 
RESTORE T-B1T TO ITS PREVIOUS CONDITION 


1977 .SBTTL RESTORE T=-BIT TO ITS PREVIOUS CONDITION 
1978 3 FRA AEA RARER RENEE EERE EERE EAE EREKE EERE 
1979 :* 
1980 :* THIS TRAP ROUTINE CAN BE REACHED BY THE TRAP CALL ‘TBITR’. IT IS 
1981 3* USED TO RESTORE THE T=BIT AFTER A PARTICULAR TEST THAT CANNOT 
1982 ;* BE RUN WITH THE T-BIT ON. IT USES THE PROCESSOR STATUS STORED 
1983 ;* IN 'OLDPSW'* BY 'TBITO', REPLACES THE PS ON THE STACK WITH IT 
1985 3* AND DOES AN ‘RTT'. 

* 
1986 PETIT IIT Tit iti titi iti titi iiitt titi titi titi iiti titi titi tit itt ts 
bo 002754 013766 001346 000002 ITBITRE: MOV OLDPSW,2(KSP)  ;PUT OLD PSW ON STACK 
1988 00. %? 042737 000020 001346 BIC #TBIT, OLDPSw SS eo ie Y IN ‘‘OLDPSW"* 


1989 :SO THAT IT WON'T BE TURNED ON BY ACCIDENT 
1990 002770 000006 RTT ;RETURN TO PROGRAM AND INHIBIT T-BIT TRAP AFTER THIS INSTRUCTION 
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1991 
1992 
1993 
1994 


2010 003024 
2011 003026 


012703 
3 


CKKUACO 11/24/44 UBI MAP 
SUBROUTINE TO CLEAR ALL OF THE MAP REGISTE 


170200 


000040 
020000 
170400 


MACRO mie 24-APR=81 10:48 PAGE g, 4 SEQUENCE 


. SBTTL SUBROUTINE TO CLEAR ALL OF THE MAP REGISTERS 


LERAERAAREREEEREE EE E REE E EERE ERE EREEEARERRAERERERRERERER EERE RE 


te 
= THIS SUBROUTINE CLEARS ALL OF THE MAP REGISTERS IF > wan IS 
bo DISABLED BY LOADING THE ADDRESS OF MAPLOO INTO_R3 AND THEN 
s¢ CLEARING THE REGISTER POINTED TO BY R3 UNTIL R3 POINTS ABOVE 
77 MAPH37. _IF MAPPING IS ENABLED, ALL REGISTERS EXCEPT MAPL1 
pe IS CLEARED. THE LOWER WORD OF MAPL1 RECEIVES 20000. THIS IS 
hed SO APT CAN PROPERLY MONITOR THE PROGRESS OF THE DIAGNOSTIC. 
-* 
DAES ISIS IIIIISIISISISIIIIIIIIOISIIOIIOISISIDISIINIIIUIEIOIUIDIDIDDII III ITE 
CLRMAP: MOV AMAPLO,R3 ;PUT FIRST MAP ADDR IN R3 

CLR (R3)+ :CLEAR MAPLO 

CLR (R3)+ CLEAR MAPLO+2 

172516 BIT #B1T5,MMR3 7 SEE i MAPPING IS ENABLED 

BEQ 1$ ;BRANCH TO CLEAR ALL IF NOT ENABLED 

MOV #20000, (R3)+ ;LOAD 20000 INTO MAPL1 FOR POSSIBLE APT USE 
1$: CLR (R3)+ ;CLEAR MAP REGISTERS 

CMP MPAAPH37+2 ,R3 ZSEE IF LAST ADDR+2 IS_IN R3 

BNE 1$ [BRANCH IF NOT DONE YET 

RTS PC SRETURN TO MAIN PROGRAM 
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SUBROUTINE TO LOG AND REPORT TIMEOUTS OF MAP REGISTERS 


020014 


177777 


010003 
001320 
000020 


172356 
003674 
177777 
177777 


001330 
177766 
001326 


003032 


001326 


003032 
003032 





C 4 
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-SBTTL SUBROUTINE TO LOG AND REPORT TIMEOUTS OF MAP REGISTERS 


‘WARD AARARAASASASASAAALAAASALASASESALASE SESE SES SSE SEAS RARER RSS SS 


4 
:* THIS SUBROUTINE IS USED TO LOG AND REPORT THE FACT THAT A 
;* REFERENCE TO A MAPPING REGISTER TIMED OUT ON THE UNIBUS. IT 
3* KEEPS A ‘LOGICAL AND’ AND A ‘LOGICAL OR’ OF EACH ADDRESS THAT 
3* TIMES OUT. 
+ 
PECTIC titi titi tit iititti tit itititii titi titi iii ttt itt t tt ttt t tit: 
TIMEOUT : INC (PC) + ; INCREMENT ONE us GATE 
TOFLAG: .WORD -1 ZONE TIME ENTANCE FLAG 

BEQ 10$ BRANCH IF FLAG IS NOW ZERO 

INC SMSGTY ; INDICATE TO APT A FATAL ERROR OCCURED 


HALT 31 HAVE ENTERED THIS ROUTINE BEFORE I FINISHED REPORTING THE FiRST ERROR. 
THE SECOND ENTRY ADDRESS IS ON THE STACK AND THE 
ZFIRST ERROR CONDITION IS PROBABLY STILL LOCKED UP. 
10$: MOV (KSP) +, OLDPC ;SAVE RETURN ADDRESS 


MOV (KSP) + ,OLDPS SAVE OLD PSW 
TSTB CPUTYP 7SEE IF THIS IS AN 11/44 
BEQ 1$ BRANCH TO CONTINUE IF IT IS 
INC PCPUER : INCREMENT PCPUER TO SHOW A TIMEOUT OCCURED 
TST CPUEXP :SEE IF THERE WAS AN EXPECTED ERROR 
BEQ 3$ :GO REPORT ERROR IF NONE EXPECTED 
BR 4$ 7BRANCH TO EXIT IF TIMEOUT WAS EXPECTED 
1$: MOV CPUERR,PCPUER ;SAVE CPU ERROR REGISTER 


MOV PCPUER,CPUERR ;CLEAR CPU ERROR REGISTER 
CMP PCPUER, CPUE XP SEE IF EXPECTED wees CAME UP. 
$ CH IF IT WAS A TIMEOUT 


BEQ 2 I 
MOV #~1,TOFLAG TRESET ONE TIME GATE 
ERROR +1 :NOT THE CORRECT CPU TRAP THROUGH 4 
BR 4$ BRANCH TO EXIT 
2$: TSTB CPUTYP 21S Ley AN Lae 
BEQ 25$ H_IF 
INC ERRCNT COUNT THIS AS A TIMEOUT 
BR 4$ :GO0 TO EXIT 
25$: CMP MTIMOUT,CPUEXP ;SEE IF A TIMEOUT WAS EXPECTED 
BEQ 4$ BRANCH TO EXIT THIS ROUTINE IF IT WAS 
MOV RO,~(SP) PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 
MOV KIPAR7,-(SP) [PUT PAR ON STACK FOR ADREXT SUBROUTINE USE 
3$: JSR PC ,ADREXT :GO SET DATA _IN THE 4 WORDS OF ADDROR AND ADRAND 
MOV #-1 , TOFLAG ;RESET ONE TIME GATE 
ERROR +204 + THE + ae tae — TIMED OUT WHEN READ 
4$: MOV #-1, TOFLAG sRESET ONE TIME GATE 


MOV OLDPS ,~(KSP) RESTORE OLD PSW 
MCV OLDFC ,-(KSP) ;PUSH RETURN ADDRESS BACK ON THE STACK 
RTT :RETURN TO THE TEST 


RRS BOP aa 5: Bae eae I 


CKKUACO 11/24/44 UBI MAP MACRO M1113 24-APR-81 10:48 PAGE 36 * SEQUENCE 
CPU TRAP HANDLER ROUTINES 
2058 -SBTTL CPU TRAP HANDLER ROUTINES 
2059 SL RARER RRR E EEE ERE EERE EERE EERE EERE ERE REE E EERE RE 
2060 3* **TRAP HANDLING ROUTINES** 
1 DLR IR IR ERR ERR IK REE CK RIKI EERE EERE 
06 
s0e8 SI RRR Reh heheh ek keke halal hehehehe kaha ialahehahahahahehelelelelahehahelehelalelelshelehehelsielelaheheheleisleleiolelelel 
2064 ;* 
2065 3* THIS SUBROUTINE WILL HANDLE ALL CPU TRAPS AND ABORTS, THROUGH 
2066 s@ “ERRVEC'' (000004). IF THIS SUBROUTINE IS ENTERED BY A SECOND 
2067 3* Np BEFORE THE FIRST HAS BEEN PROCESSED A HALT IS EXECUTED. 
2068 3% IF _ THE *CPUEXP’ IS ZERO, NO TRAP WAS EXPECTED AND AN 
2069 s* UNEXPECTED ERROR MESSAGE IS GIVEN. IF THE WORD ‘CPUEXP' IS 
2070 :* NOT ZERO THEN THE CPU ERROR REGISTER ‘'CPUERR' IS COMPARED WITH 
2071 :* *"CPUEXP' TO SEE IF THE PROPER CONDITION OCCURRED. ‘PCPUER' CAN 
2072 se BE USED AS A FLAG TO INDICATE THAT A TRAP HAS OCCURRED SINCE IT 
Oye :* IS LOADED WITH THE ERROR REGISTER IF A TRAP VECTORS HERE 
-* 
2075 EcTItiiitt iti tit iiititititiiiiiiiiii iii irs 
2076 003222 005227 CPUER: INC (PC) + sMAKE FLAG ZERO IF FIRST TIME 
2077 003224 177777 CPFLAG: .WORD <1 SNEGATIVE ONE FOR A FLAG 
2078 003226 001403 BEQ 10$ ;BRANCH IF FIRST TIME IN 
2079 003230 005237 020014 INC SMSGTY ; INDICATE TO APT A FATAL ERROR OCCURED 
2080 0032 HALT 31 HAVE ENTERED THIS ROUTINE BEFORE 
2081 31 FINISHED REPORTING THE FIRST ERROR. THE SECOND ENTRY ADDRESS IS ON 
2082 THE STACK, AND THE FIRST ERROR CONDITION IS PROBABLY STILL LOCKED UP 
2083 003236 012637 001342 108: MOV (KSP)+,OLDPC ;SAVE RETURN ADDRESS IN CASE L 
003242 012637 001344 MOV (KSP)+,OLDPS ;SAVE OLD PSW IN CASE 
2085 003246 013737 177766 001330 MOV CPUERR ,PCPUER SAVE CPU ERROR REGISTER 
2086 003254 013737 001342 001340 MOV OLDPC ,BADPC :SAVE PC+2 AT TIME OF ABORT 
2087 003262 005737 001326 TST CPUE XP SEE M4 ANY CONDITION WAS EXPECTED 
003266 001414 BEQ 1$ [BRANCH IF NO TRAP WAS EXPECTED 
2089 003270 105737 010003 TSTB CPUTYP +SEE IF THIS WAS AN 11/44 
2090 003274 1016 BNE 2 CH TO CONTINUE IF AN 11/24 
2091 003276 023737 001330 001326 CMP PCPUER , CPUEXP SEE IF EXPECTED ERROR OCCURED 
003 141 BEQ $ :BRANCH IF ERROR CODES MATCH 
003 012737 177777 003224 MOV #-1,CPFLAG ;MAKE FLAG NEGATIVE ONE Ne NEXT TIME 
2094 003314 104001 ERROR +1 NOT THE CORRECT CPU TRAP THROUGH 4 
2095 003316 12 3$ ;SKIP NEXT INSTRUCTION 
003320 012737 177777 003224 1$: V #-1,CPFLAG SMAKE FLAG NEGATIVE ONE FOR NEXT TIME 
002 ERROR +2 ;UNEXPECTED CPU TRAP THROUGH 4 
BR 3$ SKIP NEXT INSTRUCTION 
INC ERRCNT ; INCREMENT ERRCNT TO SHOW AN ERROR FOR 11/24 
MOV CPUEXP,PCPUER  :PUT ete ce CONTENTS IN PCPUER 
MOV #-1,CPFLA 3 FLAG NEGATIVE ONE FOR NEXT TIME 
MOV PCPUER,CPUERR CLEAR CPU ERROR REGISTER 
MOV OLDPS ,~(KSP) [PUSH OLD PSW BACK ON STACK 
MOV OLDPC ,-(KSP) [PUSH RETURN ADDRESS BACK ON STACK 
RTT ;RETURN FROM INTERRUPT OR ABORT 








E 4 
CKKUACO 11/24/44 UBI MAP MACRO M1113 24-APR=81 10:48 PAGE 37 SEQUENCE 
| MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 


2106 .-SBTTL MEMORY MANAGEMENT TRAPS AND ABORTS HANDLER ROUTINE 
2107 LL ORR AERRERRERE EERE RE REE ERE REEEEREEREEEEEEERRER EERE 
2108 :* 
2109 ;* THIS ROUTINE WILL HANDLE ALL SPURIOUS MEMORY MANAGEMENT TRAPS 
2110 3* AND ABORTS. IT WILL REPORT THE CONDITION OF ALL THE MEMORY 
2111 3* MAMAGEMENT STATUS REGISTERS, AND THEN RETURN TO THE TEST AND 
Siig * TRY TO CONTINUE RUNNING. 

**® 
2114 ETIITITICi Titi t tii titi ii titi titi iit iitiiiiiiiiiiti iii t iti i 
2115 003372 005227 MMTRAP: INC (PC)+ ;MAKE FLAG ZERO IF FIRST TIME 
2116 003374 177777 MMFLAG: .WORD -1 ;FLAG SHOULD BE NEG ONE 
2117 003376 001403 BEQ 10$ ‘BRANCH IF FIRST TIME INTO ROUTINE 
2118 003400 005237 020014 INC SMSGTY ; INDICATE TO APT A FATAL ERROR OCCURED 
2119 003404 000000 HAL T 31 HAVE ENTERED THIS ROUTINE BEFORE I FINISHED REPORTING THE 
2120 sFIRST ERROR. THE SECOND ENTRY ADDRESS IS ON THE STACK AND THE FIRST ERROR 
2121 ;CONDITION IS PROBABLY STILL LOCKED UP . 
2122 003406 011637 001340 10$: MOV (KSP) ,BADPC 7 SAVE PC AT TIME OF ABORT OR TRAP 
2123 003412 012637 001342 MOV (KSP)+, OLDPC ;SAVE RETURN ADDRESS IN CASE OF LOOP 
2124 003416 012637 001344 MOV (KSP)+,OLDPS + SAVE OLD PSW IN CASE OF LOOP 
2125 003422 013737 177572 001350 MOV MMRO , PMMRO SAVE STATUS REGISTER 
2126 003430 013737 177574 001352 MOV MMR1,PMMR1 ;SAVE AUTO INC/DEC REGISTER 
2127 003436 013737 177576 001354 MOV MMR2 , PMMR2 ;SAVE VIRTUAL ADDRESS REGISTER 
2128 003444 104003 ERROR +3 * UNEXPECTED M.M. ABORT OR TRAP 
2129 003446 042737 177776 177572 #18: BIC #177776,MMRO ;CLEAR ot BITS EXCEPT 0 
2130 003454 012737 177777 003374 MOV #-1 _MMFLA G RES TORE A NEGATIVE atte TO FLAG 
2131 003462 013746 001354 MOV OLDPS ,-(KSP) ‘PUSH OLD PSW ONTO S 
2132 003466 013746 001342 MOV OLDPC ,-(KSP) [PUSH RETURN ADDRESS "ON STACK 


2133 003472 000006 RTT [RETURN TO MAIN PROGRAM 
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2160 64 
2161 003570 
2162 003572 
2163 003576 
2164 003602 


2169 003622 


005237 
005737 


CKKUACO 11/24/44 UBI MAP 
SUBROUTINE TO TEST A LOCATION FOR WRITEABILITY 


001174 
006000 


020102 
020102 
000001 


000001 
006000 
037776 
001330 
037776 


005076 
177734 


001330 


001174 
00000- 


oe 
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006900 


006009 





SEQUENCE 


-SBTTL SUBROUTINE TO TEST A LOCATION FOR WRITEABILITY 


TORE SERESSSLLSLSE Pe SEL ERLE SESE ERR R ESR R SRR RRR RRR ARSE R ARRAS SSS DS 


* 
i* THIS SUBROUTINE CLEARS A_ TEST LOCATION, LOADS THE LOCATION USING 
i* THE MAP REGISTER, AND DETERMINES IF THE LOCATION WAS LOADED. IF 
3® IT WAS, RETURN IS NORMAL TO THE TEST. IF NOT, THE PC ON THE 
se STACK JS UPDATED BY 2 AND THEN A RETURN IS EXECUTED. 
+t 
jieeeneenenenennanssenenegeanananenenannenenanneenatnenesaenenees 
TSTLOC: INC $TMPO : INCREMENT REGISTER COUNTER 

TST os EE IF BIT 15 OF FLOATR IS SET 


BPL 1$ “BRANCH IF STILL PLUS 

CMP 39 el RS ;SEE IF RS IS POINTING TO UPPER DDW 
BEQ NEXT SBRANCH IF SO = ALL DONE 

MOV #$DDW1 RS SMOVE ADDRESS OF road _" RS AND 

MOV #B1TO,FLOATR ;RESET BIT O IN F 


BR NEXT BRANCH OVER ASL 
1$ INC (PC) + ; INCREMENT NEXT ee a FOR FIRST TIME THROUGH CHECK 
FTTHRU: .WwORD <1 SFIRST TIME ENTRANCE FLAG 

BNE 1$ BRANCH IF NOT FIRST TIME 

MOV #BITO,FLOATR ;MOVE BIT 0 TO LOCATION FLOATR 

BR NEXT ;BRANCH OVER_THE ASL 
1 ASL FLOATR ROTATE THE TEST BIT TO THE LEFT 


NEXT: «LR 37776 
CLR PCPUER 


:CLEAR TEST LOCATION 
ZCLEAR ERROR LOCATION 
MOV R2, (RO) ;TRY TO LOAD TEST CELL THROUGH MAP 
CMP 37776,R2 :SEE IF TEST LOCATION WAS LOADED 
BEQ 2s [BRANCH IF IT WAS LOADED 
JSR PC,CHKLMA :GO SEE IF USER SAYS THIS IS AN 11/24 WITH UB MEMORY 
-WORD LMAHI,LMALOW ; ADDRESSES OF LMA REGISTERS 
BR 2$ RETURN IS HERE IF OK 
TST PCPUER 7SEE IF A TIMEOUT OCCURED 
BEQ 1$ BRANCH OVER SPECIAL STACK PUSH IF NOT 
MOV $TMPO ,~-(R3) [PUSH PEGISTER NUMBER THAT TIMED OUT ON SPECIAL STACK 
1$: ADD #2, (SP) ;CORRE T PC RETURN FOR LOAD FAILURE INDICATION 
; PC RETURN FROM THIS SUBROUTINE 
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| 2170 


2183 003646 


056637 
005166 
$4 
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SUBROUTINE TO LOAD DATAOR AND DATAND 


000002 001246 
000002 001242 





.SBTTL SUBROUTINE TO LOAD DATAOR AND DATAND 


PORRRRASESESALELLELELERES ESE RE RE SERRE SASSER R ERR SARA R RRR RRR R SOS SO 


3 

:* THIS SUBROUTINE ASSUMES THE DATA TO BE ANDED AND ORED HAS BEEN PUT 
s@ ON THE STACK BEFORE THIS SUBROUTINE WAS CALLED. IT BIT SETS THE 
s* DATA ONTO DATAOR, COMPLEMENTS THE DATA AND BIT CLEARS IT ONTO 

s* DATAND. 

-% 

2. RRR KEREAEEREKKEEEREAEERERERREEREEKEREE EH 


DATEXT: BIS 2(SP) ,DATAOR ;SET THE "OR* PATTERN TO DATAOR 
OM 2(SP) COMPLIMENT THE DATA 

BIC 2(SP) ,DATAND ;CLEAR THE ‘AND PATTERN TO DATAND 

MOV (SP) +, (SP) ;CLEAN THE STACK FOR THE RETURN 

RTS PC ;RETURN 
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CKKUACO 11/24/44 UBI MAP MACRO M1113 24=-APR=81 10:48 PAGE 40 SEQUENCE 
SUBROUTINE TO LOAD PATAOR AND PATAND 


2 
2 
e 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 


-SBTTL SUBROUTINE TO LOAD PATAOR AND PATAND 


5 PERERA AERA EERE AERA REE EREREAREE EES 


* 

* THIS SUBROUTINE ASSUMES THE DATA TO BE ANDED AND ORED HAS BEEN PUT 
* ON THE STACK BEFORE THIS SUBROUTINE WAS CALLED. IT BIT SETS THE 

* DATA ONTO PATTOR, COMPLEMENTS THE DATA AND BIT CLEARS IT ONTO 

* PATAND. 
* 
A 


003650 056637 000002 001254 PATEXT: eam oo :SET THE ‘OR' PATTERN TO PATTOR 


ed ed et oe 
CRFRESLESELRAL 


003656 005166 0 C (SP) ; COMPLIMENT THE PATTERN 

003662 046637 000002 001252 BIC 2(SP) ,PATAND ;CLEAR THE ‘AND’ PATTERN TO PATAND 
003670 012616 MOV (SP) +, (SP) ;CLEAN UP STACK FOR RETURN 

003672 000207 RTS PC RETURN 
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2247 004104 


010546 
0 5 


~ 
| 
r 
| SUBROUTINE TO TAKE PAR AND LOAD 2 WORDS EACH OF ADDROR & ADRAN 
| 


000004 
001206 


005772 
005770 


000006 


001236 
001232 
005772 


005770 
605772 





maha SUBROUTINE TO TAKE PAR AND LOAD 2 WORDS EACH OF ADDROR & ADRAND 


FERRARA EERE REAR E EERE REE REEEA EEE EEE ERE 


THIS SUBROUTINE ASSUMES THE CONTENTS OF THE PAR, AND THE VIRTUAL 
ADDRESS HAVE BEEN PUT ON THE STACK. IT TAKES THE PAR, SHIFTS IT 


ce 

* 

* 

* 

. TS RAND + 

* THE PAR IN RS, IT SHIFTS TO GET THE LOWER 16 BIT EQUIVALENT AND 
. ADDS THE VIRTUAL ADDRESS TO CREATE THE PHYSICAL LOWER 16 BITS. 
is THEN IT BIT SETS THEM TO ADDROR. COMPLIMENTS THE CONTENTS AND 

. BIT CLEARS ADRAND. ANOTHER COMPLIMENT BRINGS THE STATE BACK TO 
* 

+ 

o 

*® 

b 


: ITS ORIGINAL STATE. THIS SUBROUTINE LEAVES WITH THE LOWER 16 
: BITS AND THE UPPER 6 BITS ON THE STACK, AND ARE TO BE REMOVED IN 
: THA] ORDER, AND MUST BE REMOVED AFTER RETURN. 
*: 'MARAARAAAARASLALALALAAALAARAAAASLSESLSASASERASEL SSSR SSSA RES SSR REESE SE SS 
ADREXT: MOV R5,-(SP) sSAVE RS 
MOV 4 (SP) ,R5 ‘MOVE PAR CONTENTS TO RS FOR SHIFTING 
ASH #-10. .R5 SSHIFT RS TO THE RIGHT 10 PLACES 
BIC #177700,.R5 [CLEAR BITS 15 TO 6 
CMP #74,R5 [SEE IF 1/0 PAGE 
BNE 1$ SBRANCH IF NOT 
MOV #77,R5 *RESET R5 TO 77 
1$: MOV RS, $TMPS ‘MOVE OBTAINED UPPER 6 BITS TO $TMPS FOR FUTURE TRANSFER 
BIS R5.ADDROR+2 ‘SET THE 'OR' PATTERN OF UPPER 6 BITS TO ADDROR+2 
COM RS [COMPLIMENT RS 
BIC RS ,ADRAND+2 'CLEAR THE "AND' PATTERN OF UPPER 6 BITS TO ADRAND+2 
MOV 4 (SP) .R5 [PUT PAR CONTENTS BACK IN RS 
MOV STMPS 4 (SP) [MOVE UPPER 6 BITS OF PHYSICAL ADDRESS ON STACK 
CMP #74,$TMP5S [SEE IF 1/0 P PA AGE 
BNE 2$ “BRANCH IF NO 
MOV #77,EADRES+2 :SET 77 IN UPPER ERROR LOCATION 
MOV 6(SP),EADRES | :SET LOWER ADDRESS IN LOWER ERROR LOCATION 
BR 3$ [BRANCH OVER PREP 
2$: BIC #176000,R5 :STRIP OFF UPPER 6 BITS OF PAR CONTENTS 
ASH #6,R5 ‘SHIFT REMAINING BITS 6 PLACES TO THE LEFT 
BIC #160000, 6(SP) iS RIP OFF PAR PAGE BITS FROM ADDRESS TO FORM OFFSET 
ADD RS,6 -FORM LOWER 16 BITS OF ADDRESS 
3$: MOV capes: SRS ;RESTORE R R5 
BIS 4 (SP) -ADDROR SET THE "OR' PATTERN TO ADDROR 
COM 4(SP) COMPLIMENT THE ADDRESS 
BIC 4(SP),ADRAND  :CLEAR THE ‘AND’ PATTERN TO ADRAND 
COM 4 (SP) SRETURN ADDRESS TO ITS ORIGINAL STATE 
CMP #77,EADRES+2 :SEE IF 1/0 PAGE IN UPPER LOCATION 
BEQ 4$ ‘BRANCH TO EXIT IF SO 
MOV 4(SP),EADRES  : PUT LOWER 16 BITS IN ERROR STATUS LOCATION 
MOV 2(SP).EADRES+2 :PUT UPPER 6 BITS IN ERROR STATUS LOCATION 
4$: MOV (SP) +,2(SP) ‘PUT RETURN ADDRESS WHERE IT BELONGS 
TST (SP) + S CLEAN STACK 
RTS PC ‘RE TURN 
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2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 004106 005737 004312 
3261 004112 001070 
2262 004114 011646 
2263 004116 062766 000002 
2264 004124 012703 004314 
2265 004130 012704 000013 
2266 004134 012737 004162 001106 
2267 004142 005077 175134 
2268 004146 012377 175126 
2269 004152 013737 001256 172354 
2270 004160 012300 
2271 004162 011001 
2272 004164 012337 001310 
2273 004170 020137 001310 
2274 174 001443 
2275 004176 004737 005076 
2276 004202 177736 177734 
2277 004206 000436 
2278 004210 032777 004000 174720 
2279 004216 001406 
2280 004220 017737 175064 001176 
2281 004226 004737 005000 
2282 004232 
2283 004234 011037 001176 
2284 004240 010137 
2285 004244 162703 000002 
2286 004250 013737 001310 005770 
2287 004256 005037 005772 
2288 011646 
2289 004264 012737 000001 004312 
2290 004272 000207 
2291 004274 062703 000002 
2292 004300 062706 000002 
2293 004304 077460 
2294 004306 005726 
2295 004310 000207 
2296 004312 
| 
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SEQUENCE 48 


-SBTTL SUBROUTINE TESTING RELOCATION ADDER 


— 
wn 
= 
nw 
Pe) 


*- +2 2 Pee DP BS 


Be Be Be Be Me 


MAPADD : TST 


1$: MOV 


23: MOV 


25$: MOV 
26S: SUB 


3$: ADD 
4$: S$0B 


R 
LOEFLG: .WORD 


BANK 

"STACK’ POINTER, 
THE STACK POINTER IS ~rharanaas 3 WORDS FOR EACH PASS. 
ROUTINE r we MANNER 


PC ,MAPADD 
—— R 


LOEFLG 
$ 


3 

(SP) ,=(SP) 
#4, 2(SP) 
ARSSTAK,R3 


#13,R 
#25, SLPERR 
@LREGU 
(R3)+,@LREGL 
LOWEST ,KIPAR6 
(R3)+,RO 
(RO) ,R1 
(R3) +, UBM24L 
2B) Aare, 


PC, CHKLMA 
LMAHI ,LMALOW 


#B1T11,aSWR 
5$ 


QUBM246L ,$TMP1 
PC ,PTMP2 
268 


(RO) ,STMP1 
R1,$TMP2 


#2,R3 

UBM24L ,EADRES 
EADRES+2 

(SP) ,=(SP) 
#1,LOEFLG 

PC 


WETITITI ITLL LLL LLL LLL 

THE FOLLOWING SUBROUTINE IS USED IN TESTS 13 AND 16 
LOWING TO EXECUTE THE LOOPS IN THE TEST. R3 I 
INITIALIZED AT THE BEGINING TO THE RSS TAK DAT 


rs USES THE DATA 
S_THE igs 
A BANK 


CALL THIS SUB- 


CLEAR STMP4 = USED IN ERROR RETURN 
[G0 DO THE TEST 

;PETURN IS HERE FOR ERROR 

;BRANCH BACK TO CONTINUE TEST 


POT TTTTOTTTITITITTTTT TITTLE LTT LT 


+: IF THIS reer WAS AN ERROR 


; NOTCH 

[CREATE ADDRESS ON STACK FOR FINAL RETURN 
[SET THE SPECIAL STACK POINTER 
7SET THE LOOP COUNTER 

SET LOOP ON ERROR POINTER TO 2$ 

[CLEAR UPPER BITS OF MAPPING REG 

LOAD LOWER My OF MAPPING REG 

;LOAD PAR6 WITH ADDR OF LOWEST MAP REG 
SELECT PARG, OFFSET IS AUGEND 

[READ LOCATION DEFINED BY 4TH WORD IN TABLE 
ZMOVE ANTICIPATED PHYSICAL ADDRESS TO UBM24L 
;SEE IF THE MAP'S FETCH WAS 2 gy 

[BRANCH IF FETCHED DATA MATCHES ADDR 

3GO SEE IF USER SAYS THIS IS AN th 3 suITH UB MEMORY 
: ADDRESSES a iat ERS 


IS HERE IF OK 
;CHECK TO SEE IF 11/24 WITH UB MEMORY ONLY 
BRANCH IF 


NOT 
:GET pease ts DATA FOR ERROR CALL 
[GO PREPARE $TMP2 FOR ERROR CALL 


:GO_ CALL [ERROR 

[GET EXPECTED DATA FOR ERROR CALL 

;GET DATA FROM R1 FOR ERROR CALL 

ANTICIPATE ERROR LOOPING BY UNDOING AUTOINC 
PUT ADDRESS IN rae FOR ERROR CALL 

;CLEAR UPPER LOCATION 

[PUT AN EXTRA RETURN ON FOR POSSIBLE ERROR LOOPING 
SET FLAG SHOWING ERROR CALL WAS CALLED 

:EXIT TO ERROR CALL AT TEST 

RESTORE AUTOINC, ERROR LOOPING NOT DONE 

[CLEAN EXTRA RETURN OFF STACK = LOOPING NOT DONE 
SUBTRACT 1 FROM R4 AND BRANCH IF NOT 0 

EXPOSE NEXT TEST RETURN ADDRESS 

sEXIT TO NEXT TEST 

;LOOP ON ERROR FLAG LOCATION 


a 
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1 MAP 
NE TESTING RELOCATION ADDER 


060000 R3STAK: 


BBeBeEy 


senseuesueees 
PERBIEIAERE 


WWW 
and and ad od 
Who 





;DATA_IN THE R3STAK DATA BANK BELOW IS ARRANGED IN THE FOLLOWING ORDER: 
3>>>NOTE<<<: THE ‘OFFSET’ COLUMN IS NOT _IN THE STACK DUE TO THE DELIMITER 
: (3) BETWEEN THE EXPECTED ADDRESS AND THE OFFSET VALUES 


| VRTUAL{PHYSCL: 
BASE sateen" ~: * ata R4 VALUE 


WORD 060000,140000,060000; 090000 R4=13 
«WORD 052524,145252,057776; 005252 R4=12 
«WORD  045252,152524,057776;012524 R4=11 
«WORD 050420,150420,061040; 010420 R4=10 
-WORD 054630,144210,061040; 004210 R4=7 
-WORD 044210,154630,061040; 014630 R4=6 
-WORD 056734,142104,061040;002104 R4=5 
- WORD 2104, 156734 ,061040; 016734 R4=4 
«WORD 057776,141042,061040; 001042 R4=3 
. WORD 1042,157776,061040;017776 R4=2 
-WORD 057776,140002,060000; 000002 R4=1 


L 4 
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| SUBROUTINE TO TEST CARRY PROP OF MAP'S RELOC ADDER 


| 2314 .SBTTL SUBROUTINE TO TEST CARRY PROP OF MAP'S RELOC ADDER 

2315 PUTT Titi t titi ttt itti titi iitti itis iii 

2316 te THIS SUBROUT INE IS USED BY TESTS 14 AND 17. CODE CALLING THIS SUB- 
2317 * ROUTINE IS AS FOLLOWS: 

2318 te CLR STMP4 ZCLEAR $TMP4 = USED IN ERROR RETURN 

2319 7*LAB: JSR PC, TCPMRA GO DO THE TEST 

2320 is ERROR +2 ei TRETURN IS HERE IF AN ERROR 

2321 i BR ‘BRANCH BACK TO CONTINUE TEST 

2322 : 2 A RR EB a RB nod oe BL. . Be 

2323 004416 005737 004312 TCPMRA: TST LOEFLG ;TEST ERROR FLAG TO SEE IF THIS ENTRY IS FROM ERROR 
2324 004422 001132 BNE 4$ ‘BRANCH TO CONTINUE TEST IF SO 

2325 004424 011646 MOV (SP) ,=(SP) ‘MOVE RETURN ADDRESS UP ONE NOTCH 

2326 004426 062766 000004 000002 ADD #4 ,2¢SP) TCREATE CORRECT FINAL RETURN ADDRESS 

2327 004434 012737 177777 004674 MOV #~-1,35$ S INITIALIZE FLAG AS NEGATIVE ONE 

2328 004442 005077 174634 CLR @LREGU :CLEAR UPPER 6 BITS OF MAP REG 

2329 004446 012777 020000 174624 MOV #20000,@LREGL  :LOAD 4K BASE INTO MAP REGISTER 

2330 004454 012701 100100 MOV #100100,R1 [LOAD BITS TO SELECT PAR 4, OFFSET 100 

2331 004460 012700 150000 MOV #150000,RO [LOAD BITS TO SELECT PAR 6. OFFSET 2k 

2332 004464 012737 000277 172350 MOV #277, KIPARG ;START WITH PHYSICAL 6k 

2333 004472 013737 001256 172354 MOV LOWEST, KIPAR6 :LOAD PAR 6 WITH MAP REG'S ADDR 

2334 004500 012737 004552 001105 MOV #2$, $LPERR SET LOOP ON ERROR POINTER TO 2$ 

2335 004506 005037 001330 1$: CLR PCPUER [CLEAR TIME OUT FLAG 

2336 004512 062737 010000 001310 ADD #10000,UBM24L  :FORM EXPECTED LMA FOR POSSIBLE USE 

2337 004520 001002 BNE 15$ [BRANCH AROUND UBM24U INCREMENT IF NOT ZERO 
2338 004522 005237 001312 INC UBM24U S INCREMENT UPPER LOCATION 

2339 004526 012737 000020 001326 15$: MOV #20, CPUEXP i EXPECTING A UNIBUS TIME OUT DURING TEST 

2340 004534 013710 001364 MOV DATA, (RO) THIS LOAD WILL TIME OUT WHEN YOU HAVE REACHED THE TOP 
2341 :OF MEMORY IT SELECTS PAR 6 WHICH WILL PUT ADDR <XXX1>0000 ON THE UNIBUS. THE X'S WILL 
334 SELECT THE LOWEST USABLE MAPPING REGISTER. THE DEFAULT CASE IS 00010000, SELECTING 
2344 004540 005037 001326 CLR CPUEXP :CLEAR CPUEXP = DON'T EXPECT TRAPS FOR A WHILE 
2345 004544 005737 001330 TST PCPUER SEE IF THERE WAS MAIN MEMORY 

2346 004550 001050 BNE 3$ H IF NO MAIN MEMORY FROM UNIBUS 

2347 006552 012737 000040 001326 28: MOV WNEXMEM, CPUEXP POSSIBLE CACHE NON-EXISTENT MEMORY 

2348 004560 011103 MOV (R1) .R3 [READ TEST LOCATION VIA FASTBUS 

2349 004562 005037 001326 CLR CPUEXP SCLEAR CPUEXP = DON'T EXPECT TRAPS FOR A WHILE 
2350 004566 022737 000040 001330 ¢ #icMEM,PCPUER WAS THIS CACHE NON-EXISTENT MEMORY 

2351 004574 001436 BEQ SBRANCH IF NON-EXISTENT MEMORY 

235¢ 004576 011 MOV (RO) ,R2 READ TEST LOCATION VIA UNIBUS MAP 

2353 004600 02020 CMP R2,R3 OMPARE TEST DATA R2=MAP DATA, R3=FASTBUS DATA 
2354 004602 001433 BEQ 3$ ‘BRANCH IF IT WAS THE SAME 

2355 004604 004737 005076 JSR PC, CHKLMA 760 CHECK FOR 11/24 WITH UB MEMORY 

2356 004610 177736 177734 x LMAHI .LMALOW TADDRESSES OF LMA REGISTERS 

357 004614 426 BR SRETURN IS HERE IF OK 

358 004616 0 004000 174312 BIT #B1T11,aSwR [SEE IF THIS IS AN 11/24 WITH UB MEMORY ONLY 
359 4 901403 BEQ 25$ SBRANLH IF NOT 

2360 Ov 004737 005000 JSR PC PTMP2 [GO PREPARE $TMP2 FOR ERROR CALL 

3361 BR 268 ‘BRANCH TO CALL ERROR 

362 004634 011037 001200 258: MOV (RO). STMP2 [GET RECEIVED DATA FOR ERROR CALL 

336 004640 010387 001176 : MOV R3,$1MP1 [GET EXPECTED DATA FOR ERROR CALL 

364 004644 11646 MOV (SP) ,=(SP) [PUT AN EXTRA RETURN ADDRESS ON STACK FOR POSSIBLE LOOP 
365 004646 137 90131 005770 MOV tenet EADRES :LOAD LOWER 16 BITS OF ADDRESS FOR 

366 004654 013737 00131 005772 MOV 4UEADRES*+2 [LOAD UPPER 6 BITS OF ADDRESS FOR ERROR CALL 

% 004662 012737 000001 0043 MOV OEFLG +SET FLAG SHOWING AN ERROR RETURN 

368 004670 000207 RTS 4a ETURN TO THE ERROR 

3369 004672 52 ? $: INC (PC)+ S INCREMENT ONE TIME ENTRANCE FLAG 

370 004674 177777 5$: .WORD 1 ; 
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SUBROUTINE TO TEST CARRY PROP OF MAP'S RELOC AD 


$30) 004676 
237. 700 


23 706 
2374 004710 


172350 


4 
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001356 


001364 
172350 
174342 


174330 


001364 
001364 


4$: 
5$: 








SEQUENCE 


5$ ;BRANCH IF I'VE BEEN HERE BEFORE 
KIPARG,RSIZE |: SAVE UPPER LIMIT OF MEMORY 

5$ SBRANCH OVER ERROR LOOP CORRECTION 
#2,SP :POP EXCESS RETURN ADDRESS OFF STACK 
#100,DATA =C LOAD 


HANGE PATI ERN FOR NEXT 
TADD 2K TO PAR4 

#10000,@LREGL ADD ox 19 MAP REGISTER 

1$ ‘BRANCH IF MAP REGISTER NOT ZERO 


@LREGU SADD ONE TO UPPER 6 BITS OF MAP REG 
#73, @LREGU SEE IF TOP 128k ao HAS BEEN PASSED 
1$ BRANCH IF NOT PAST IT 

DATA CHANGE DATA PATTERN FOR NEXT PASS 
#177700 ,DATA [CLEAR UPPER_10 BITS OF DATA PATTERN 


#300,DATA TSTART WITH 3XX IN DATA PATTERN 
a POP STACK EXPOSING FINAL RETURN ADDRESS 


51 


CKKUACO 11/24/44 UBI MACRO 
SUBROUTINE TO OBTAIN CONTENTS OF LMA CONTENTS LOCATION 


2400 062 
2401 005070 
2402 005074 





MAP 


177772 
176177 


N 4 
M1113 24=APR=81 10:48 PAGE 45 


PTMP2: 


SEQUENCE 


— oy TO wat > CONTENTS OF LMA CONTENTS LOCATION 


ie +, KIPARS 


LMA LOW REGISTER e tpt gt: TO RS FOR SHIFTING 
SHIFT PHYSICAL UPPER 3 BITS TO THE RIGHT 6 PLACES 
:CLEAR_ALL BUT THE THREES SHiF TED BITS 
7SAVE THIS NUMBER THE STACK 
;MOVE_LMA HIGH pr ae CONTENTS TO y? A SHIFTING 
7SHIFT LOWER 6 BITS TO THE LEFT 10 PL 
ZADD POA tee Th SHIFTED CONTENTS TO tow 
TSAVE PAR TACK 
SMOVE OBTAINED PAR VALUE TO PAR3 
GET ADDRESS MAP CREATED 
CLEAR BIT 15 AND 
[SET BITS 13 & 14 TO PUT PAR PAGE 3 IN $TMP2 
MOVE sonra? OF LOCATION TO $TMP2 
:RESTORE PAR AR3 


52 
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SUBROUTINE TO CHECK FOR 11/24 WITH UBMEMORY 


2403 .SBTTL SUBROUTINE TO CHECK FOR 11/24 WITH UBMEMORY 
2404 LR ERR EERE EE EERE EERE ERR EERE 
2405 :* 
2406 3* THIS SUBROUTINE CHECKS THE SWITCH REGISTER TO + IF USER STATES THAT 
2407 3* THiS IS AN 11/24 CPU WITH UNIBUS MEMORY 1 ha F NOT, AN EXIT IS 
2408 7* EXECUTED WITH THE RETURN BEING UPDATED TO THE OND VOCATION AFTER THE 
2409 3* JSR CALL. IF IT IS, THE LMA HIGH REGISTER IS CHECKED FOR BEING EQUAL 
2410 * TO THE CONTENTS OF UBM24U, (ASSUMED TO BE PRELOADED. THESE 6 BITS ARE 
2411 ;* THE UPPER 6 BITS OF THE MAPPED ADDRESS FORMED BY THE MAP REGISTER 
2412 5% LOGIC), IF NOT, EXIT TO FUDGE RETURN. IF SO, THE LMA LOW REGISTER IS 
2413 3* CHECKED. IT 1§ ASSUMED THAT ‘goer UBM24L CONTAINS THE EXPECTED 
2414 7* PHYSICAL ADDRESS. IT COMPARES THE LMA LOW REGISTER WITH UBM24L, AND IF 
2415 7* EQUAL, EXECUTES A RETURN WITHOUT THE FUDGING OF THE RETURN ADDRESS, 
nS tad OTHERWISE IT IS FUDGED. 
* 
2418 DESAI IIIS ISIE IOS ISO IOOIOOIIOIDIDINIIIDICITIDIO II tt 
2419 005076 017637 000000 005134 CHKLMA: MOV a0(SP),10$ sMOVE LMAHI ADDRESS TO ACCESS TO 10$ 
2420 005104 062716 000002 ADD #2, (SP) + ADVANCE TO NEXT PARAMETER 
2421 005110 017637 000000 005154 MOV a0(SP),11$ MOVE LMALOW ADDRESS TO ACCESS TO 11$ 
2422 005116 062716 000002 ADD #2, (SP) ‘CORRECT RETURN OVER PARAMETER 
2423 005122 032777 004000 174005 BIT #B1T11,aSWR SEE IF USER SAYS THIS IS AN 11/24 WITH UB MEMORY 
2424 005130 001413 BEQ 1$ “BRANCH OUT IF NOT 
2425 005132 013746 MOV a(PC)+,-(SP) “MOVE LMA HIGH REGISTER CONTENTS TO STACK | 
2426 005134 000000 10$: . WORD 0 ;LOCATION FOR ADDRESS TO ACCESS 
2427 005136 042716 177700 BIC #177700, (SP) ;CLEAR ALL BUT LOWER 6 BITS (UPPER 6 BITS OF ADDRESS) 
2428 005142 023726 001312 CMP UBM24U, (SP) + : SEE IF UPPER 6 BITS ARE AS EXPECTED 
2429 005146 001004 BNE 1$ ‘BRANCH TO PREPARE FOR 2ND RETURN LOCATION IF NOT 
2430 005150 023737 001310 CMP UBM24L .a(PC)+ 7 SEE IF EXPECTED DATA WAS CLOCKED PROPERLY 
2431 005154 000000 11$: .~WORD 0 ;LOCATION FOR ADDRESS TO ACCESS 
2432 005156 001402 BEQ 2$ “BRANCH AROUND STACK RETURN FUDGE IF OK 
2433 005160 062716 000002 1$: ADD #2,(SP) + FUDGE RETURN OVER NON-ERROR BRANCH 


2434 005164 000207 23: RTS PC sEXIT 
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PRETEST DATA SETUP SUBROUTINE 


2435 
2436 
2437 005166 


2445 005226 
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173726 


0071212 


SEQUENCE 54 


-SBTTL PRETEST DATA SETUP SUBROUTINE 


5 AAA RRR RARER EEE EERE KERR RRA RAEKREEEREEEEEREEEE 


PRETST: MOV 


(SP) ,RO 
(RO) +,NXTTST 


Ss 
$TSTNM, @DISPLAY 
RO, (SP) 

RO. $LPADR 
#1,$TIMES 
PC 


;MOVE RETURN ADDRESS TO RO 
ore STARTING ADDRESS OF NEXT TEST ‘ ON PAR ERRORS | 


“SET 
“SETUP TEST NUMBER AND CLEAR THE ERROR FLAG 


DISPLAY TEST NUMBER FOR ALL TO SEE 
:FUDGE RETURN OVER PARAMETERS 

:SET LOOP ON TEST POINTER i. START OF TEST 
;RESET ITERATIONS COUNTER TO 1 

;RETURN TO BEGIN TEST 
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DISABLE CHECK SUBROUTINE 


2446 .SBTTL DISABLE CHECK SUBROUTINE 

2447 J sate th Ob CAAT CARNATIC tre eID: 

2448 33 TOP RRAAAAAAAAASAAESEASAELZASZALALALESLELE SESE SSE SESE SERS RRR SRR ARSE SG 

2449 :* 

2450 :* THIS SUBROUTINE CHECKS THE STATUS OF THE BIT POINTED TO IN FLOATR 
2451 7* IN THE LOCATION POINTED TO BY R5 (EITHER $DDWO OR $DDW1), AND DETER- 
2452 i* MINES IF THE LOCATION SHOULD BE DISABLED. 

2453 005230 105737 020034 DSABLD: TSTB SENV s TEST APT STATUS 

2454 005234 001411 BEQ 1$ ‘BRANCH IF NOT APT 

2455 005236 105737 020035 TSTB SENVM :DOES APT SAY TO ae 

2456 005242 100006 BPL 1$ ‘BRANCH TO EXIT IF 

2457 005244 033715 006000 BIT FLOATR, (R5) ; TEST DISABLE STAT a 

2458 005250 001403 BEQ 1$ ‘BRANCH IF IT SHOULD BE DISABLED 

2459 005252 011537 001176 MOV (R5),$TMP1 sMOVE CONTENTS OF DEVICE DESCRIPTOR WORD TO $TMP1 
2460 005256 000402 BR 2$ ;BRANCH OVER RETURN CORRECTION 

2461 005260 062716 000002 1$: ADD #2, (SP) ; CHOCOLATE FUDGE RETURN OVER ERROR CAL 


2462 005264 000207 2$: RTS PC ZRETURN WITHOUT CORRECTING STACK SO ERROR WILL CALL 


-, 
a ae 11/24/44 UBI MAP MACRO M1113 24=APR=81 10:48 PAGE 49 SEQUENCE 56 
E CHECK SUBROUTINE 


pevoliee. ee 
| = 2463 .SBTTL ENABLE CHECK SUBROUTINE 
2464 5 PRA EKEAEEEEEEEREAEEERKEREAKEEREEREEAEREEKEEEKEREEKEEKEA EERE 
2465 :* THIS SUBROUTINE CHECKS THE STATUS OF THE BIT POINTED TO IN FLOATR 
2466 ;* IN THE LOCATION POINTED TO BY RS (EITHER $DDWO OR $DDW1), AND DETER= 
2467 :* MINES IF THE LOCATION SHOULD BE ENABLED. 
2468 005266 105737 020034 ENABLD: TSTB = $ENV sTEST APT STATUS 
2469 005272 001411 BEQ 1$ ‘BRANC' IF NOT APT 
2470 005274 105737 020035 TSTB. = SENVM :DOES APT SAY TO SIZE 
2471 005300 100006 BPL 1$ ‘BRANCH TO EXIT IF NOT 
2472 005302 033715 006000 BIT FLOATR, (R5) STEST DISABLE STATUS 
2473 005306 001003 BNE 1$ ‘BRANCH IF IT SHOULD BE ENABLED 
2474 005310 011537 001176 MOV (R5),$TMP1 [MOVE CONTENTS OF DEVICE DESCRIPTOR WORD TO $TMP1 
2475 005314 000402 BR 2$ [BRANCH OVER RETURN CORRECTION 
2476 005316 062716 000002 1$: ADD #2, (SP) SVANILLA FUDGE RETURN OVER ERROR CAL 


2477 005322 000207 2$: RTS PC ;RETURN WITHOUT CORRECTING STACK SO ERROR WILL CALL 


| F 5 
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CACHE TEST IN SUBROUTINE FORM 
2478 .SBTTL CACHE TEST IN SUBROUTINE FORM 
2479 SE RAAAAARARARAARRAREERAERERERERARARRAKRRARAERAERARARARAREEEAARRE ER ERE 
2480 005324 042737 000001 177572 CASHSR: BIC #81T00,MMRO ; TURN OFF RELOCATION | 
2481 005332 052737 000400 177746 BIS WBITO8.CACHE § :FLUSH CACHE TO INVALIDATE ALL CACHE LOCATIONS | 
2482 005340 032737 010000 177746 18: BIT WBITI2,CACHE = ;WAIT TILL DONE | 
2483 005346 001374 BNE 1$ 
2484 005350 013702 000000 MOV 0,R2 sSAVE ADDR. 0 CONTENTS 
2485 005354 005037 000000 CLR 0 70'S TO MAIN MEMORY LOCATION 0. 
2486 005360 005003 CLR R3 [CLEAR ERROR FLAG 
2487 005362 012704 177777 MOV #=1,R4 TALL 1°S TO Ro 
2488 005366 013700 000114 MOV CTRAPV,RO *SAVE VECTORS 
2489 005372 013701 000116 MOV CTRAPS.R1 
2490 005376 012737 005524 000114 MOV #3$, CTRAPV ;SETUP FOR CACHE TRAP 
2491 005404 012737 000340 000116 MOV #340, (TRAPS 
2492 005412 112737 000002 177750 MOVB  #2,MAINT :HODO ALLOWS CACHE UPDATES AND CLOCKING OF 
2493 “PARITY INFO TO INTERRUPT LOGIC ONLY DURING 
2494 ‘THE DESTINATION ACCESS OF AN INSTRUCTION. 
2495 005420 012737 000015 177746 MOV #15, CACHE ‘NO UCB SO AS TO WRITE CACHE STORES 
2496 005426 005737 040000 TST 40000 ‘UPDATE CACHE LOCATION 0000 WITH CORRECT 
2497 SPARITY STORAGE 
2498 095432 052737 000100 177746 BIS #B1T06, CACHE | SO ehimeedornadening tbe 
2500 005440 005737 000000 TST 0 “READ UPDATE TO CACHE LOCATION 0000; 
2501 ‘WRITE WRONG PARITY TO HI/LO BYTE PARITY STORES 
2502 005444 042737 000100 177746 BIC WBITO6,CACHE § :DISABLE WwPD 
2503 005452 005037 177744 CLR CMPE “CLEAR CMPE AND PARITY DETECT LOGI¢ 
2504 005456 147637 000001 177746 BICB  a1(SP),CACHE | :ALLOW FOR INTERRUPT TO OCCUR AND ENABLE LOW CACHE 
2505 005464 122776 000002 000000 CMPB so #2, @0 (SP) [SEE WHICH TEST WE ARE DOING 
2506 005472 001405 BEQ 2$ >GO TO 2ND TEST SECTION IF 2ND TEST EXECUTING 
2507 005474 005737 000000 TST 0 TREAD HIT 1.0 & HI BYTE PARITY CHECK GENERATORS 
2508 ;WILL DETECT WRONG PARITY AND THE PARITY 
2509 TERROR WILL BE CLOCKED TO INTERRUPT LOGIC 
2510 005500 000240 NOP “NEEDED FOR 11/44 
2511 005502 005203 INC R3 ‘INDICATE THAT TRAP DID NOT OCCUR 
2512 005504 000410 BR 4$ “BRANCH OVER STACK CORRECTION AND 2ND TEST SECTION 
2513 005506 052737 000200 177746 2%: BIS #BITO7,CACHE § :ALLOW FOR ABORT 
2514 005514 011304 MOV (R3) ,RE *READ HIT LO & HI BYTE PARITY CHECK GENERATORS WILL 
2515 :DETECT WRONG PARITY USING HODO AND SOURCE MODE FOR READING LOCATION O WILL 
2516 ‘ INHIBIT PARITY ERROR FROM BEING CLOCKED TO INTERRUPT LOGIC. HOWEVER, THE PARITY 
2517 TERROR SIGNAL WILL CAUSE THE ABORT SIGNAL TO BE ASSERTED. THE ABORT SIGNAL WILL 
2518 SBECAUSE CMPE<15> TO BE SET. THIS INSTRUCTION SHOULD BE ABORTED 
2519 005516 000240 NOP sNEEDED IN AN 11/44 TO ALLOW 1 INSTRUCTION BEFORE ABORT 
2520 005520 005203 INC R3 * INDICATE NO TRAP OCCURED 
2521 005522 000401 BR 4$ ‘BRANCH OVER STACK CORRECTION 
2522 005524 022626 3$: CMP (R6>+, (R6)+ *READJUST STACK DUE TO INTERRUPT 
2523 005526 005037 177744 4s: CLR CMP [CLEAR CMPE 
2524 005532 012737 001015 177746 MOV #1015, CACHE ‘DISABLE CACHE 
2525 005540 105037 177750 CLRB MAINT [DISABLE MA NT. 
2526 005544 010237 000000 MOV R2,0 SRESTORE LOCATION 0 
2527 005550 010037 000114 MOV RO. CTRAPV *RESTORE CACHE INTERRUPT VECTORS 
2528 005554 010137 000116 MOV R1.CTRAPS 
2529 005560 052737 000400 177746 BIS WBITOB8.CACHE § :BEFORE LEAVING TEST FLUSH CACHE TO ELIMINATE EFFECTS OF WWwP 
032737 010000 177746 S$: git #112, CACHE ‘WAIT TILL DONE 
ADD #2, (SP) ;FUDGE RETURN OVER PARAMETER BYTES 


RTS PC sEAIT 
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2534 


2544 005632 


006002 


006004 


000002 
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CHECK DATA PATTERN 


SEQUENCE 


.SBTTL SUBROUTINE TO PREPARE AND CHECK DATA PATTERN 


POR RERSESARELALLLSESESERERSE SERRE RRR ERR RRR RASA AAAS S ARR AAA ASAD A SSD 


CHKPAT: MOV 


BIC 


sMOVE NEXT COUNT PATTERN TO R2 

:USE MASK* PRE=LOADED FOR PROPER LOADING 
LOAD MAP a WITH COUNT PATTERN 

‘RELOAD PATT 

USE THE 2ND MASK TO CONSTRUCT EXPECTED VALUE 


[COMPARE EXPECTED WITH RECEIVED 
;BRANCH IF DATA IS OK 


. 
° 


At RETURN TO SHOW ERROR 


58 
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| 
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| READ AN OCTAL NUMBER FROM THE TTY 


2555 005636 000004 


2561 005656 005001 
562 005660 00 

2563 005662 
64 664 


177770 


000012 
005742 


2 36 
2583 005740 
2584 005742 





-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


WeeAAAAAAAAAAAAARARAARARARARARRARLASARAEAASASERRA RRR AS ARRAS ARSE SS SE | 


‘*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY, 


CHANGE IT TO 


;*BINARY AND PUT THE NUMBER ON THE STACK. 


s*CALL: 
3* RDOCT 
3* MOV (SF) +,LOCATION 
**® 
$SRDOCT: MOV (SP) ,=(SP) 
000002 MOV 4(SP) ,2(SP) 
MOV RO,-(SP) 
MOV R1,-(SP) 
MOV R2,-(SP) 
18: RDLIN 
MOV (SP)+,RO 
CLR R1 
CLR R2 
23: MOVB (RO) +,-(SP) 
BEQ 3$ 
CLC 
ROL R1 
ROL R2 
CLC 
ROL R1 
ROL R2 
CLC 


ROL R1 


R2 
BIC #177770, (SP) 
BIS aad 


3$: TST (SP) + 
MOV Ri,12(SP) 
MOV R2,$HIOCT 
MOV (SP)+,R2 
MOV (SP)+,R1 
MOV (SP)+,RO 


RTI 
$HIOCT: .WORD 0 


;READ AN OCTAL NUMBER 
;POP TE INPUTED NUMBER OFF STACK 
[HIGH ORDER BITS ARE IN $HIOCT 


;MAKE ROOM FOR THE 
NUMBER 


TREAD THE OCTAL NUMBER 

:GET ADDRESS OF 1ST CHARACTER 
EAR R1 

CLEAR R2 

MOVE pe Hy TO STACK 

:1F ZERO, EXIT 

ZCLEAR THE CARRY BIT 

: SHIFT MSB_TO THE CARRY BIT 

; SHIFT IT TO UPPER RECEIVER 


IT 
H HE CARRY BIT 
SHIFT IT TO UPPER RECEIVER 
:CLEAR THE CARRY BIT 
:SHIFT MSB TO THE CARRY BIT 
SHIFT IT TO UPPER RECEIVER 
:STRIF ALL BUT BINARY EQUIVALENT 
7SET THE BINARY EQUIVALENT TO LOWER RECEIVER 
;BRANCH BACK 
;CLEAN TERMINATOR FROM STACK 
SAVE THE RESULT 


RESTORE R2 
RESTORE R1 
RESTORE RO 


; RETURN 
:HIGH ORDER BITS GO HERE 


SEQUENCE 


59 


SR 


2587 005750 001266 001270 001272 DTMSG: 
88 005764 : 


| 
is 
2585 
| 2586 005744 005750 006124 DIMS: 
| 


2590 005770 000000 000077 EADRES: 
2591 005774 000000 000077 EADRS2: 
2592 006000 : 





PATRNS: 


: .ASCIZ 
: .ASCIZ 


* 
CKKUACO 11/24/44 UBI MAP O M1’ 13 omit. 10:48 PAGE 53 SEQUENCE 
DATA TABLES AND ASCII STRINGS USED. iN THiS DIAGNOST 


DATA TABLES AND ASCII STRINGS re okt THIS DIAGNOSTIC 
DTMSG,DFMSG ;POINTER TO DATA VARIABLE ADDRESSES 
MMALOW,MMRHI ,UBRLOW, UBRHI , STESTN, b DATA VARIABLES TO BE PRINTED 


0 s THIS LOCATION HOLDS CHARACTERS INPUTED DURING THE TYPE ROUTINE 
0 : THIS LOCATION STORES THE OUTPUT OF THE EXTRACTION ROUTINE 
0.77 ;LOCATIONS FOR STORING . BITS OF THE UBMAP REGISTER Freee 
0.77 ;LOCATIONS FOR STORING ANOTHER UBMAP REGISTER ADDRESS 
0 s;LOCATION TO HOLD BIT TO FLOAT TO TEST DDW'S STATUS 
0 ;PRE=LOADED BY THE TEST WITH THE 1ST BIT-MASK 
oo PRE-LOADED BY THE TEST WITH THE 2ND BIT-MASK 

; THIS ENABLES YOU Ys atts THE Bald PATTERNS BELOW 
17779991941111111 BITS 
0000000000000000 PALL BITS CL EAR 
1010101010101010 DD BITS SET, EVEN BITS CLEAR 
0101010101010101 SEVEN BITS SET, ODD BITS CLEAR 
0011001100110011 TALTERNATING PAIRS OF BITS SET 
0000111100001111 ALTERNATING GROUPS OF 4 BITS SET 
0000000011111111 LOWER BYTE au UPPER BYTE CLEAR 


-THIS RETURNS MODE BACK TO OCT 
0,0 ;ALL NUMBERS ARE ro BE *PRINTED IN OCTAL 
<CRLF > PUNIBUS MEMORY AVAILABLE = 


? K?<CRLF> 


-—-———_--—--—- -— ---— - - + + 
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DATA TABLES AND ASCII STRINGS USED. iN THIS DIAGNOSTIC 


| 2609 006204 200 104 111 CPUMSG: .ASCIZ <CRLF>?DIAGNOSTIC HAS DETERMINED THAT CPU_IS AN 11/ 42?<CRLF> 
2610 006265 101 103 103 TOMSG: . ASCII ACCESSING MEMORY THROUGH THE FOLLOWING REGISTER(S) ?<CRLF> 
2611 006350 103 101 125 -ASCI1Z ?CAUSED TIME OUTS (THEY MIGHT BE UNEXPECTED) ?<CRLF> 
2612 006425 200 123 111 JMPMSG: .ASCII <CRLF>?S1ZE JUMPERS ON UNIBUS MAP ARE NOT IN THEIR DEFAULT?<CRLF> 
26135 006512 120 117 123 -ASCII ?POSITION. MAP REGISTERS BETWEEN THE LOWEST AND HIGHEST?<CRLF> 
2614 006602 125 123 105 -ASCII ?2USEABLE, AND ABOVE THE UNIBUS eo of ette WILL BE TESTED. ?<CRLF> 
2615 006673 125 116 111 “ASCII ?UNIBUS MEMORY WILL BE ASSUMED TO BE BETWEEN UNIBUS BEGIN?<CRLF> 
2616 006764 101 116 104 -ASCII ?AND END REGISTER NUMBE RS IF BIT "ss IS SET IN THE SWR,?<CRLF> 
2617 007053 105 116 101 ASCII ENABLING TEST i TO EXECUTES PCCRLF><CRLF> 
2618 007112 040 040 114 ASCII ? LOWEST HIGEST UNIBUS UNIBUS?<CRLF> 
2619 0071 040 040 125 ASCII ? USABLE USABLE BEGIN END ?<CRLF > 
2620 007212 040 040 040 -ASCIZ ?_ REG# REG # REG # REG # TEST #?<CRLF> 
2621 007 124 110 105 NOMORE: .ASCIi ?THERE ARE STILL MORE ERRORS BUT WILL NOT BE TYPED. EACH?<CRLF> 
2622 007355 105 122 122 -ASCIZ 2ERROR WILL BE COUNTED AND NUMBER PRINTED AT THE END~OF ~PASS?<CRLF > 
2623 007452 124 110 111 BADCPU: .ASCII ?THIS DIAGNOSTIC IS DESIGNED FOR AN 11/24 OR 11/44. ?<CRLF> 
2624 007535 104 111 101 -ASCIZ ?DIAGNOSTIC DOES NOT INTERPRET CPU AS EITHER ONE. ?<CRLF> 
2625 007617 111 123 040 MRQUES: .ASCIZ ?1S THERE A MAP REGISTER MODULE IN THIS CPU (Y OR <CR>)? 
007706 040 200 000 GMRMD1: .ASCIZ ? ?<CRLF> ;PLACE FOR USER INPUT CHARACTE 
2627 007711 104 111 101 GMRMOD: .ASCIZ DIAGNOSTIC CHECKS THIS MODULE = INSERT BEFORE RE-RUNNING?<CRLF > 
oss 010003 000 CPUTYP: y is 0 ;LOCATION TO STORE THE CPU TYPE NUMBER 
2630 RESERVE REMAINING AREA FOR PERMANENT PATCHES 
2631 :THIS AREA MAY GO BEYOND 10000. USE ONLY THAT AREA UP TO 7776. 
2632 010004 000000 000000 000000 PATCH: .WORD 0,0,0,0,0,0.0.0.0.0.0.0.0.0.0.0.0.0.0.0,0,.0.0.0,0.0.9,0,0,0.0.0 
2633 010104 000000 000000 000000 “WORD 0.0.0.0.0.0.0.0.0.0.0.0.C.0,0,0.0,0,0.0,0,0,0,0,0,0,0,0,0,0,0.0 
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PRE=TESTING SETUP 


-SBTTL PRE-TESTING SETUP 


2635 PRRARRRAR ARERR 
‘START OF TEST CODE 
2637 URRRAARRRR RRR ER 
38 
2639 010000 .=10000 ;START TEST CODE AT ADDRESS 10000 (2k) 
2640 010000 012737 000340 177776 STANT: MOV #340,PS “LOCK SUT ALL INTERRUPTS 
2641 010006 012700 001100 MOV #SCMTAG FIRST LOCATION TO BE CLEARED 
2642 010012 012701 000021 MOV W<STKS-SCMTAGD/2. R1:MOVE LOOP COUNTER TO R1 
2643 010016 005020 11$: CLR (RO) + :CLEAR MEMORY LOCATION 
2644 010020 077102 $0B R1,11$ ‘SUBTRACT 1 AND BRANCH IF NOT DONE YET 
2645 010022 005037 020022 CLR $PASS t INITIALIZE PASS COUNT 
2646 010026 012706 001100 MOV #STACK, SP SINITILAIZE $ 
2647 010032 012700 010054 MOV #13$,R0 *MOVE ADDRESS ns VECTORS TO RO 
2648 010036 012701 000005 MOV #5,Ri [DO 5 LOADS 
2649 010042 012030 12$: MOV (RO)+,a(RO)+ | =MOVE VECTOR TO LOCATION 
2650 010044 012730 000340 MOV #340,a(RO)+ *MOVE PRIORITY 7 TO NEXT LOCATION 
2651 010050 077104 SOB R1,12$ *BRANCH BACK IF NOT DONE YET 
2652 010052 000417 BR ey “BRANCH OVER DATA WORDS 
2653 010054 020140 000020 000022 138: -WORD $SCOPE,IOTVEC, IOTVEC+2, SERROR EMTVEL,EMTVEC+2,$TRAP, TRAPVE 
2654 010074 000036 023462 000024 "WORD TRAPVE+2, $PWRDN, PWRVEC .PWRVEC+2, SRTRN, TBITVE, TBITVE+2 
2655 010112 013737 021516 021510 14$: MOV SENDCT ,SEOPCT : SETUP END-OF -PROGRAM COUNTER 
2656 010120 005037 001214 CLR SESCAPE [CLEAR THE ESCAPE ON ERROR ADDRESS 
2657 010124 112737 000001 001113 MOVB  #1,$ERMAX ALLOW OW ONE ERROR PER T 
2658 010132 012737 000002 021742 MOV #RTI,$SRTRN [SET $SRTRN TO AN RTI 
2659 010140 012737 010166 000010 MOV #16$.RESVEC ‘MOVE sais (FAILURE) 10, RESVEC 
2660 010146 012746 000340 MOV #340,-(SP) [MOVE PRIORITY 7 TO S 
2661 010152 012746 010160 MOV #15$,-(SP) [MOVE 15$ (SUCCESS) fo THE STACK 
2662 010156 000006 RTT [TRY TO DO AN R 
2663 010160 012737 000006 021742 15$: MOV ARTT, SRTRN :RTT IS PP GAL =eSET SRTRN TO AN RTT 
2664 010166 012706 001100 16$: MOV WSTACK, “RESET STACK IF NECESSAR 
2665 010172 012737 000012 000010 MOV pResvEts2, RESVEC:RESET TRAP CATCHER 
2666 010200 005037 021750 CLR $TBIT [CLEAR sipB! SWITCH 
2667 010204 012737 010662 001104 MOV #TST1#2,$LPADR :SETUP $LPADR 
2668 010212 012737 01066< 001106 MOV #1ST1+2.$LPERR i SETUP SLPERR 
2669 010220 005227 177777 INC #-1 sFIRST TIME? 
2670 010224 001017 BNE 18$ [BRANCH IF NOT 
2671 010226 104401 010234 TYPE 17$ :TYPE THE TEST TITLE 
2672 010232 000414 BR 18$ BRANCH OVER ASCIZ 
2673 010234 103 113 113. 17%: ~ASCIZ "CKKUAC 11/24/44 UBI MAP" 
2675 010264 005737 020022 18$: TST $PASS :1S THIS THE FIRST PASS? 
2676 010270 001131 BNE [BRANCH IF NOT 
2677 010272 013746 900004 MOV 4,-(SP) TSAVE TIMEOUT VECTOR 
2678 010276 012737 010434 000004 MOV #2$,4 s TIMEOUTS TO 104$ 
2679 010304 013746 000006 MOV 6,-(SP) SSAVE PS VECTOR 
2680 010310 012737 000340 000006 MOV #340,6 [PRIORITY 
2681 010316 ? MF PT [DETERMINE PROCESSOR TYPE 
2682 010320 110037 010003 MOVB RO, CPUTYP [MOVE THE CPU NUMBER TO CPUTYP 
2683 010324 105337 010003 DECB = CPUTYP SMAKE THE 11/44 VALUE ZERO 
2684 010330 101006 BNE i$ [BRANCH TO NEXT TEST IF NOT AN 11/44 
2685 010332 112737 000064 006261 MOVB #°4,CPUMSG*SS :MOVE ASCII 4 To LOCATION IN MESSAGE TO PRINT 
2686 010340 104401 006204 TYPE CPUMSG :TYPE THE CPU TYPE HEADER 
2687 010344 3 BR : CONT INUE 
2688 010346 122737 000002 010003 1$: CMPB ss #2, CPUTYP [SEE IF THIS | IS AN 11/24 
2689 010354 001031 BNE *BRANCH TO FATAL ERROR MESSAGE PRINTING IF NOT 
2690 010356 112737 000062 006261 MOVB #'2,CPUMSG*5S :MOVE ASCII 2 TO LOCATION IN MESSAGE TO PRINT 
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CPUMSG 
SENVM 


PSSSWR  SWR 
— 
oNEWSWR 
(SP)+,$SSWR 
6$ 

$SSWR 

6$ 

#4 ,SP 


SMSGTY 
-BADCPU 


4$ 
#~1 ,ASWR 
$ 


6 
#SSSWR,SWR 
(SP)+,6 


(SP) +.4 
KIPARS,-(SP) 
#400 KiPARS 


oe0ees « RS 
~ (R4) 


URS 
#100, KIPAR3 
#7600, KIPAR3 


(SP) + ,KIPARS 
SENVM 


; TYPE THE CPU TYPE HEADER 
31S APT 


i SEE 


I 


;BRANCH 


FS 


SIZING 
IF NO 


*SWR 


BRANCH 
; SETUP yg Ory SWITCH REGISTER 
WR IS NON-ZERO 


PE: 
[GO READ USER OCTAL_INPUT 
MOVE “7 ee TO THE SOFTWARE SWR LOCATION 


F NON-ZER 
MAKE SWR NON-ZERO FOR POSSIBLE NEXT RUN 


CONT INUE 

[CLEAN STACK AFTER TIMEOUT 

;TELL APT THIS IS A FATAL ERROR 
YPE THE BAD CPU MESSAGE 


iTY S 
SFATAL ERROR = THIS DIAGNOSTIC — 


FOR 11/24 AND 11/44 PROCESSORS 
;DON'T ALLOW CONTINUE 
[SEE IF HARDWARE SWITCH REGISTER EXISTS OR etre -1 


[BRANCH TO CONTINUE IF IT EXISTS AND DOESN'T 


SEQUENCE 


CONTAIN =1 


MOVE et OF SOFTWARE SWITCH REGISTER TO SwWR 
RESTORE TIMEOUT PS 
;RESTORE TIMEOUT VECTOR 
3 SAVE _PAR3 


TSTART WITH ADDRESS 40000 
; ADDRESS PAR3, OFFSET=0 
OAD TO 40000 


DATA TOL 
;MOVE DATA TO LOCATION 
TA_UP 10000 


: T 
USE APT SWITCH REGISTER 


LOAD MEMORY MANAGEME 

SET PRIORITY SEVE 

PU_ TRAP SE 
Y SE 


N 
~d a ROUTINE ADDR 


NT TRAP SERVICE ROUTINE ADDRESS 


63 
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TEST # 1 = MAP REGISTER RESPONSE TEST 


2748 .SBTTL TEST # 1 = MAP REGISTER RESPONSE TEST 
| LEAR ARERR EERE EERE RRR RARER EERAERARARERRRRAEREEER ER 
TSTEST 1 MAP REGISTER RESPONSE TEST 
**® 
* THIS TEST IS USED TO ENSURE THAT ALL THE UNIBUS MAP REGISTERS 
* CAN BE REFERENCED UNDER PROGRAM CONTROL, WITHOUT TIMING OUT. 
3* THE ADDRESSES OF ANY MAP REGISTERS THAT TIME OUT WILL BE REPORTED 
* AND. AT THE END OF THE TEST, A SUMMARY OF THOSE REGISTERS WILL 
* BE GIVEN. 
** 
eet 
010660 S11: 
010660 000004 SCOPE 
010662 004737 005166 JSR PC -PRETST 3GO SET UP PRETEST DATA 
010666 011104 011024 000001 .WORD TST2,20$,1 ;DATA USED BY PRETST 
2749 010674 012737 003030 000004 MOV #TIMEQUT, ERRVEC :LOAD ERRVEC WITH ROUTINE ADDRESS 
2750 010702 105737 010003 TSTB = CPU “TEST TO SEE WHICH CPU IS RUNNING THIS DIAGNOSTIC 
2751 010706 001435 BEQ gguT ‘BRANCH AROUND MAP REGISTER EXISTENCE CHECK IF 11/44 
3732 010710 005037 001320 CLR ERRCNT [CLEAR THE ERROR COUNTER 
2753 010714 01370 170200 1$: MOV MAPLO,R2 *READ FIRST MAP REGISTER TO R2 
2754 010720 005737 001320 TST ERRCNT [SEE IF THERE WERE ANY ERRORS 
2755 010724 0014 BEQ 3$ * BRANCH TO CHECK THEM ALL IF NONE, THEY ARE IN THIS 11/24 
2756 010726 105737 020034 TSTB = SENV TARE WE RUNNING UNDER APT 
2757 010732 100004 BPL 2$ [BRANCH IF NOT 
2758 010734 005237 020014 INC S$MSGTY [TELL APT THIS IS A FATAL ERROR 
2759 010740 000000 HALT SHALT = FATAL ERROR 
2760 010742 000764 BR 1$ [TRY AGAIN = RESTART REQUESTED 
2761 010744 104401 007617 28: TYPE §_,MRQUES TASK USER IF THERE pre MAP REGISTERS IN THIS 11/24 
2762 010750 104406 RDCHR :GO READ USER INPU 
2763 010752 112637 007706 MOVB = (SP)+, GMRMD 1 :MOVE THE CHARACTER TO THE PRINTING LOCATION 
2764 010756 104401 007706 TYPE §,GMRMD1 TYPE THE CHARACTER 
2765 010762 122737 000131 007706 CMPB ss #", GMRMD1 [SEE IF THIS WAS A ‘Y" 
2766 010 001404 BEQ 3$ [BRANCH AROUND FATAL MESSAGE IF EQUAL TO A ‘Y' 
2767 010772 104401 007711 TYPE § ,GMRMOD ;TYPE: "DIAGNOSTIC CHECKS THIS MODULE ~ INSERT 
2768 "BEFORE RE=RUNN 
2769 010776 000000 HALT “FATAL ERROR - WAIT FOR USER ACTION 
2770 011000 000745 BR 1 [TRY AGAIN = RESTART REQUESTED 
2771 011002 O12 70200 3$: MOV #MAPLO,RO [PUT FIRST MAP REGISTER ADDR IN RO 
ore 011006 012703 000100 MOV #100,R3 [TEST ALL MAP REGISTERS 
2773 011012 005037 001320 CLR ERRCNT [CLEAR THE ERROR COUNTER 
2774 011016 012737 011024 001106 MOV #20$, SLPERR [MAKE SURE $LPERR IS POINTING AT 208 
2775 011024 91100 208: MOV (RO) .R2 [READ MAP REGISTERS TO R2 
2776 011026 032 001000 170102 BIT #81709, aSwR [SEE IF LOOP ON ERROR IS SET 
2777 011034 001405 BEQ 4$ : H AROUND SETUP IF NOT 
2778 011036 005737 001320 TST ERRCNT [SEE IF AN ERROR occ 
2779 011042 001370 BNE 208 ‘BRANCH IF sO 
2780 011044 005720 48: TST (RO) + SONCREMENT Cho! TO SNEXT REGISTER LOCATION 
2781 011046 G7731e SOB [DO ALL OF THEM 
3782 011050 012737 003222 000004 MOV #CPUER.ERRVEC RESTORE CPU TRAP SERVICE ROUT INE ADDRESS TO ERRVEC 
783 011056 012737 017 001106 MOV #3$, SLPERR ;MOVE 3$ TO LOOP ON ERROR FOR ERROR +4 BELOW 
2784 011064 737 001 ‘ST ERRCNT :SEE LF THERE WERE ANY ERRORS 
2785 011070 001405 BEQ TST2 7:60 TO NEXT TEST IF NO ERRORS 
2786 011072 005337 001110 DEC SERTTL :BON' T COUNT SUMMARY AS AN ADD 1 TONAL ERROR 
2787 011076 005337 001320 DEC ERRCNT *DECREMENT ERRCNT FOR SAMF R 
2788 011102 104 ERROR +4 S SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
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OF 40 MAP REGISTERS 


.SBTTL TEST # 2 = BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS 


PE Aha hekah taka hehahahehahahehalehehaieiahahheiatahelahehshsialaielateishaisisialsiaieieinisheleicheieiaheipieisieteisheielel 


“sva'y 11/24/44 UB] MA SEQUENCE 


TEST # 2 = BIT PATTERN AND CLEAR TEST OF 
2803 





T*TEST 2 BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS 
** 
te THIS TEST WILL RUN 7 BIT PATTERNS THROUGH BOTH WORDS OF 40 UNIBUS 
* MAP REGISTER LOCATIONS MAPLOO = MAPL37, USING TWO MAJOR PASSES. 
ie IT WILL TEST THE LOWER 16 BITS ON THE FIRST PASS, AND THE UPPER 
* 6 BITS ON THE SECOND. THIS TEST WILL MAKE SURE THE REGISTER CAN 
:* CLEAR, AND THEN RUN 6 BIT PATTERNS wpROUGH EACH UNIBUS MAP REGISTER. 
ie IF THE DATA PATTERN RECEIVED DOES MATCH THE EXPECTED D PATTERN. 
* THEN THE MAP REGISTER ADDRESS, DATA MORECEIVED. PATTERN LOADED, 
te PATTERN EXPECTED ARE REPORTED. AT THE END OF EACH OF THE TWO MAJOR 
:* PASSES, A SUMMARY OF ALL ERRORS IS GIVEN SO THAT YOU CAN DETERMINE 
:* IF THE ERROR IS BIT SENSITIVE OR REGISTER SENSITIVE. 
** 
PITTI titi iii 
011104 TST2: 
011104 SCOPE 
011106 737 005166 JSR PC,PRETST 3GO SET UP PRETEST DATA 
011112 011426 011236 000002 ‘ TST3,20$,2 [DATA USED BY PRETST 
2804 011120 005037 001320 CLR ERRCNT [CLEAR THE ERROR COUNT LOCATION 
2805 011124 012737 011236 001106 1$: MOV #20$, $LPERR ‘SETUP 20$ AS LOOP ON ERROR INDICATOR (IF NOT ALREADY) 
2806 011132 012700 170200 MOV #MAPLOO,RO ‘MOVE STARTING ADDRESS OF LOWER 16 BITS REGISTER TO RO 
2807 011136 005037 006002 CLR MASK1 sMOVE "O° TO MASK1 
2808 011142 012737 000001 006004 MOV #1,MASK2 [MOVE ‘1° TO MASK2 
2809 011150 012701 000040 2$: MOV #40,R1 'DO 40 REGISTERS LOOP COUNTER 
2810 011154 012702 000007 3$: MOV #7 ,R2 [MOVE PATTERN LOOP COUNTER TO R2 
2811 011160 012705 006106 MOV #PATRNS ,RS *MOVE PATTERN START TO RS 
e812 011164 004737 005604 4$: JSR PC, CHKPAT :60 CHECK PATTE 
2813 011170 000435 BR 7$ “RETURN 1S HERE IF DATA IS OK 
2814 011172 011003 MOV (RO) ,R3 AD BAD MAP REGISTER DATA INTO R3 
2815 011174 011537 001174 MOV (RS). STMPO “MOVE PATTERN TO $TMPO 
2816 011200 011546 MOV (R5) .=(SP) [MOVE PATTERN TO STACK FOR SUBROUT INE USE 
2817 011202 004737 003650 JSR PC PATEXT *GO SET DATA INTO PATTOR AND P 
2818 011206 010346 MOV R3.-(SP) [MOVE BAD DATA TO STACK FOR SUBROUTINE USE 
2819 011210 004737 003624 JSR PC. DATEXT S SUBROUTINE TO LOAD DATAOR AND DATAND 
2820 011214 043737 2 001174 BIC MASK STMPO ‘FORM INPUT PATTERN FOR ERROR PRINTING 
2821 011222 010046 MOV RO, = xt gp) [PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUT INE 
2822 011224 015746 172356 MOV KIPAR7, (SP) ‘PUT PAR CONTENTS ON STACK FOR ADREXT SUBROUTINE 
2823 011230 004737 003674 JSR PC ,ADREXT :GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
2824 SAND FORM A PHYSICAL 22-B1T ADDRESS 
2825 011234 000403 BR 5 SBRANCH OVER LOOP ON SECTION 
2826 011236 004737 005604 20$: JSR PC, CHKPAT [GO TO SUBROUTINE TO CHECK PATTERN 
2827 011242 000401 BR 6$ [RETURN IS HERE IF DATA IS OK 
2828 011244 104203 S$: ERROR +203 [THE BIT PATTERN THROUGH THE MAP REGISTERS FAILED 
2829 011246 032777 001000 167662 6$: BIT #B1T9,aSwR [SEE IF LOOP ON ERROR IS SET 
2830 011254 001370 BNE 20$ [LOOP BAC $0 
2831 011256 012737 011154 001106 MOV #3$,SLPERR [MOVE 3$ TO LOOP ON ERROR INDICATOR 
3832 011264 005725 7$: TST (R5S+ [POINT RS TO NEXT PATTERN 
2833 011266 077242 S08 R2,4$ [DECREMENT LOOP COUNTER 
2834 011270 000004 ADD #4.RO [POINT TO NEXT MAP REGISTER UNDER TEST 
2835 011274 077151 SOB 1,3$ SDECREMENT LOOP COUNTER 
2836 011676 737 001320 TST RRCNT [SEE IF THERE WERE ANY ERRORS 
37 011 141 BEOQ ‘BRANCH IF NO ERRORS 
2838 011306 012737 0111246 001106 MOV #1$, SLPERR ‘MOVE 1$ TO LOOP ON ERROR FOR ERROR *6 OR *7 BELOW 
2839 011312 005337 001110 DEC SERTTL [SUMMATION ERROR NOT COUNTED AS ANOTHER ERROR 
2840 011316 005337 001320 DEC ERRCNT *SAME AS ABOVE 
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# 2 - BIT PATTERN AND CLEAR TEST OF 40 MAP REGISTERS 


2841 011322 022700 170402 CMP AMAPH37+4 ,RO ;SEE_IF THIS PASS WAS UPPER 6 BITS 


2842 011326 001402 BEQ 8$ 7GO SERVICE UPPER 6 BITS ERROR IF SO 

2843 011330 104006 ERROR +6 SUMMARY OF BIT PATTERN FAILURES, wit 16 BITS 
2844 011332 000405 BR 10$ ;GO SET UP DATA FOR TESTING UPPER 6 BITS 

2845 011334 104007 8$: ERROR +7 ;SUMMARY OF BIT PATTERN FAILURES, UPPER 6 BITS 
2846 011336 000433 BR TST3 73G0 TO NEXT TEST - LOWER 16 BITS weit TESTED 
2847 011340 022700 170402 9$: CMP #MAPH37+4 ,RO SEE If THIS PASS WAS FOR THE UPPER 6 BITS 

2848 011344 001430 BEQ TST3 3360 TO NEXT TEST IF IT WAS 

2849 011346 012737 011236 001106 108: MOV #20$,$LPERR ;RESET LOOP ON ERROR TO 20$ 

2850 011354 012700 170202 MOV AMAPHOO , RO SMOVE STARTING ADDRESS OF UPPER 6 BITS REGISTER TO RO 
2851 011360 012737 177700 006002 MOV #177700,MASK1 ;MOVE 1ST MASK TO MASK1 

2852 011366 012737 177700 006004 MOV #177700,MASK2 ;MOVE 2ND MASK TO MASK2 

2853 011374 005037 001254 CLR PATTOR ;CLEAR PATTOR FOR NEXT PASS 

2854 011400 005037 001246 CLR DATAOR ZCLEAR DATAOR FOR NEXT PASS 

2855 011404 012737 177777 001252 MOV #-1,PATAND [MOVE -1 TO PATAND FOR NEXT PASS 

2856 011412 012737 177777 001242 MOV #-1 ,DATAND ;MOVE -1 TO DATAND FOR NEXT PASS 

2857 011420 005037 001320 CLR ERRCNT ;CLEAR ERROR COUNT FOR NEXT PASS 

2858 011424 000651 BR 2s 3;GO REACCOMPLISH TEST FOR UPPER 6 BITS 
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# 3 = DUAL ADDRESS LOADS & READS MAP REG 





2871 » SBTTL TEST # 3 = DUAL ADDRESS LOADS & READS MAP REG'S 
FREER RARER EERE ERE EERE RE 
PeTEST 3 DUAL ADDRESS LOADS & READS MAP REG'S 
** 
he THIS ie a ENSURES THAT ONLY ONE UNIBUS MAP why IS LOADED 
‘* DURING A ‘MOV  #DATA,MAPREG'' INSTRUCTION. ALL MAP REGISTERS 
“el ARE CLEARED AND ONE REGISTER AT A TIME, STARTING WITH MAPLOO, 
3* IS LOADED WITH A -1. THEN, ALL MAP REGISTERS ARE READ, 
ie STARTING WITH MAPH37, AND VERIFIED TO BE ZERO. ANY REGISTER 
* THAT IS NOT ZERO AND WHOSE UNIBUS ADDRESS DOES NOT MATCH THAT 
;¢ OF THE REGISTER UNDER TEST IS REPORTED TO BE IN ERROR. AT THE 
in END OF THE TEST A SUMMARY OF ALL DUALED REGISTERS IS GIVEN. 
-* 
ETT IIIT t tit tt ttt ttt itt tt titi iititititi titi titi iti titi ttt ttt ttt 
011426 TST3: 
011426 04 SCOPE 
011430 737 005166 JSR PC,PRETST :GO_ SET UP PRETEST DATA 
011434 011744 011600 000003 -WORD TST4,20$,3 DATA 1 BY PRETST 
2872 011442 042737 1 177572 BIC #1 ,MMRO ;TURN OFF MEMORY MANAGEMENT 
2873 011450 012700 0200 MOV AMAPLOO,RO ;LOAD ADDRESS OF MAPLOO IN RO 
2874 011454 012702 177700 MOV #177700,R2 SET UP XOR DATA 
2875 011460 012701 170400 1$: MOV A#MAPH37+2, PUT ADDRESS OF MAPH37+2 IN R1 
2876 011464 012737 77 ~=001174 MOV #77, $TMPO ;SET UP TEST PATTERN IN $TMPO 
2877 011472 737 002772 JSR PC, CLRMAP [CLEAR ALL MAP REGISTERS FOR TEST 
878 011476 012703 000100 MOV #100,R3 :SET UP LOOP COUNTER FOR TESTING 40 REGISTERS, 2 WORDS EACH 
2879 011502 5037 17251 CLR 3 2 CLEAR MMR3 
2880 011506 012704 000100 2$: MOV #100,R4 ;SET UP LOOP COUNTER FOR CHECKING 40 estes. 2 WORDS EACH | 
2881 011512 074237 001174 XOR R2,$TMPO :REVERSE | BIT STATES OF es IN BITS 7 TO 15 
2882 011516 013710 001174 MOV $TMPO, (RO) 3L MAP REGISTER UNDER 
2883 011522 012701 170400 MOV #MAPHS7+2,R1 ;PUT ADDRESS OF MAPH37+2 IN Rt 
2884 011526 005741 3$: TST -(R1) SEE IF MAP REGISTER IS ZERO 
2885 011530 001435 BEQ 7$ :GO_SEE_IF MORE pridin: TO TEST IF = 0 
2886 011532 005011 CLR (R1) ;CLEAR THE FAILED LOCATION 
2887 011534 020100 CMP R1,R0 ;SEE IF NON-ZERO REGISTER ADDRESS MATCHES ADDRESS LOADED 
2888 011536 143 BEQ 7$ :GO SEE IF MORE REGISTERS TO TEST IF SO 
011540 012137 001202 MOV (R1)+,$TMP3 ;MOVE FAULTY DATA TO $TMP3 & PREPARE R1 FOR POSSIBLE LOOP 
2890 011544 013746 1202 MOV $TMP3,-(SP) SMOVE FAULTY DATA TO STACK FOR SUBROUTINE USE 
2 011550 013746 172350 MOV KIPAR4 ,-(SP) sMOVE PAR4 TO STACK FOR SUBROUTINE USE 
2892 011554 737 3674 JSR PC ,ADREXT :GO SET DATA _IN THE 4 WORDS OF ADDROR AND ADRAND 
AND FORM A PHYSICAL 22-BIT ADDRESS 
01 013746 172356 MOV KIPAR7,~(SP) PUT PAR_ON STACK FOR DATEXT SUBROUTINE USE 
2895 011564 010146 MOV R1,~(SP) PUT VIRTUAL ADDRESS ON STACK FOR DATEXT SUBROUTINE USE 
2896 011566 004737 003624 JSR PC,DATEXT ; SUBROUTINE TO LOAD DATAOR AND DATAND 
2897 011572 010037 005774 MOV RO,EADRS2 ;MOVE ADDRESS IN RO TO EADRS2 ~~ ERROR CALL 
2898 011576 05 BR CH OVER LOOP ON ERROR SECTION 
2899 011600 013710 001174 208: MOV $STMPO, (RO) [LOAD MAP REGISTER UNDER TEST 
2900 011604 005711 TST (R1) SEE IF MAP pode IS ZERO 
2901 011606 001402 BEQ G0 SEE_IF LOOP ON ERROR IS STILL SET IF ZERO 
2902 011610 005011 CLR (R1) ;CLEAR THE FAILED LOCATION 
2903 011612 10420 5$: ERROR +202 [DUAL ADDRESSING ERROR IN THE UNIBUS MAP 
2904 011614 032777 001000 167314 6$: BIT #B1T09,aSWR 7SEE IF LOOP ON ERROR IS SET 
2905 011622 1 BNE 20$ ;BRANCH BACK IF 
2906 011624 077440 7$: $0B R4,3$ BRANCH _IF MORE REGISTERS TO CHECK 
2907 011626 502 CLR (RO) + :CLEAR THE REGISTER JUST TESTED AND POINT TO NEXT REGISTER 
2908 011630 530 DEC R3 ;DECREMENT LOOP COUNTER 
2909 011632 001325 BNE 2s ;BRANCH IF MORE REGISTERS TO TEST 
2910 011634 005737 001320 TST ERRCNT SEE IF THERE WERE ANY ERRORS 
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# 3 = DUAL ADDRESS LOADS & READS MAP R 


2911 011640 001405 BEQ 
2912 011642 005337 001110 DEC 
2913 011646 005337 001320 DEC 
2914 011652 104005 ERROR 





RELC22 
SERTTL 
ERRCNT 
+5 


SEQUENCE 68 


:G0 i NEXT SECTION IF NO ERRORS 

; DON'T ak tee ERROR +5 AS ANOTHER ERROR 

;SAME AS ABOVE 

; SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS 
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TEST #3 = L ADDRESS LOADS & READS MAP REG 


2915 011654 104414 RELC22: TBITR ;RESTORE THE T BIT TO ITS CONDITION 
1 SBEFORE THE LAST TEST 
2917 011656 012700 077406 MOV #77406,RO MAKE THE KERNEL I-SPACE PAGES ALL 
2918 UPWARD EXPANDABLE, READ/WRITE 
2919 011662 012701 172300 MOV #KIPDRO,R1 ‘MOVE ADDRESS OF KIPDRO TO R1 
2920 011666 012702 000010 MOV #8. ,R2 [LOAD 8 PDR'S 
2921 011672 010021 1$: MOV RO, (R1)+ TKERNE! I=SPACE PAGE X KIPDRX 
2922 011674 077202 SOB R2,1$ ‘SUBTRACT 1 AND BRANCH BACK IF NOT DONE 
2923 011676 005000 CLR RO [CLEAR RO 
2924 011700 012701 172340 MOV #KIPARO,R1 [MOVE ADDRESS OF KIPARO TO R1 
2925 011704 012702 000006 MOV #6 ,R2 TLOAD FIRST 6 PAR'S 
2926 011710 010021 2s: MOV RO, (R1)+ *MAP KIPARX TO a PHYSICAL PAGE 
2927 011712 062700 000200 ADD #200,RO {MAP RO TO NEXT PAGE 
2928 011716 077204 SOB R2,2$ : SUBTRACT 1 AND BRANCH BACK IF NOT DONE 
2929 011720 012721 170000 MOV #170000,(R1)+ MAP KIPAR6 TO UNIBUS 
2930 011724 012721 177600 MOV #177600.(R1)+ | :MAP KIPAR7 TO I/O PAGE 
2931 011730 012737 000001 177572 MOV #81T0,MMRO TENABLE FULL 18-BIT MAPPING 
2932 011736 012737 000020 172516 MOV WBIT4. MRS “ENABLE 22-B1T MAPPING 


AT THIS POINT 22=BIT RELOCATION FROM MEMORY MANAGEMENT 
IS ENABLED, WITH THE KIPAR'S MAPPED TO a Oe 24K. 
KIPAR6 IS MAPPED TO THE UNIBUS (170000) AN 

KIPAR7 IS MAPPED TO THE 1/0 PAGE (177600). 


a Be Oe 
see 


3S 
ARG 


r 
| s 
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TEST # 4 ~ MAP REGISTER ADDRESS DECODE TEST 

| 

| 

| 

| 


2947 .SBTTL TEST # 4 = MAP REGISTER ADDRESS DECODE TEST 
SERRA ARERR AREER EERE ERA AREERER EKER RERE EERE 
S*TEST 4 MAP REGISTER ADDRESS DECODE TEST 
**® 
* THIS TEST TRIES TO VERIFY THAT NONE OF THE INPUTS TO THE ADDRESS 
* DECODER FOR THE UNIBUS MAP REGISTERS IS STUCK TRUE. KIPAR6 IS 
:* SET UP TO HOLD 177702 AND R4 H4S THE VIRTUAL ADDRESS TO SELECT 
te MAPLOO, THROUGH KIPAR6. THE TEST THEN CHANGES ONE BIT AT A TIME 
i* IN PAR6 SO THAT rT SHOULD NEVER REFERENCE MAPLOO. IF IT DOES, 
:* ERROR IS REPORTED 
** 
IRS BEEN SACI ® REREAD Ne 
011744 TST4: 
011744 000004 SCOPE 
011746 004737 005166 JSR PC,PRETST :GO SET UP PRETEST DATA 
1 012224 012110 000004 “WORD TST5,20$,4 “DATA USED BY PRETST 
2948 011760 013737 172354 001200 MOV KIPAR6,$TMP2 = SAVE KIPAR6 FOR RESTORATION LATER 
2949 011766 012737 177702 172354 MOV #177702,KIPAR6 :PUT MAP REGISTER 0 ADDR IN PAR6 
2950 011774 012702 175254 MOV #175254 .R2 ; PATTERN FOR TESTING. 
2951 012000 010237 170200 MOV R2,MAPLO “LOAD MAP REGISTER 0 
2952 012004 012700 004000 MOV #B1T11,RO ‘SET BIT 11 TO FLOAT THROUGH PAR6 
2953 012010 012704 140000 MOV #140000,R4 :VIRT.ADDR. TO SELECT PAR6 
2954 012014 074037 172354 1$: xOR RO, KIPAR6 : CHANGE A BIT OF MAP REGISTER O'S ADDR 
2955 012020 010046 MOV RO.=(SP) SSAVE RO ON STACK 
2956 012022 013746 172354 MOV KIPAR6,-(SP) + SAVE KIPAR6 ON STACK 
2957 012026 012737 000020 001326 MOV #TIMOUT,CPUEXP EXPECTING CPU TIME OUT ON UNIBUS 
2958 012034 011401 MOV (R4) RI :READ LOCATION POINTED TO BY PAR6 
2959 012036 005037 001326 CLR CPUEXP :CLEAR CPIUEXP - DON'T EXPECT TRAPS FOR A WHILE 
2960 012042 020201 CMP R2,R1 ;SEE IF DATA FETCHED MATCHES PATTERN 
2961 012044 001047 BNE 4$ CH IF NOT SAME 
2962 012046 012737 000020 001326 MOV #TIMOUT,CPUEXP EXPECTING CPU TIME OUT ON UNIBUS 
2963 012054 005014 CLR (R4) [TRY TO CLEAR THIS LOCATION 
2964 012056 005037 001326 CLR CPUEXP “CLEAR CPIUEXP - DON'T EXPECT TRAPS FOR A WHILE 
2965 012062 005737 170200 TST MAPLO ‘SEE IF MAP REGISTER 0 GOT CLEAR 
2966 012066 001036 BNE 4$ ‘BRANCH IF MAP REGISTER NOT SERO” 
2967 012070 010237 170200 MOV R2,MAPLO SRESTORE MAPLO 
2968 012074 010446 MOV R4.=(SP) ‘PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 
2969 012076 013746 172354 MOV KIPAR6,-(SP) PUT PAR ON STACK FOR ADREXT SUBROUTINE USE 
2970 012102 004737 003674 JSR PC ,ADREXT 'GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
2971 012106 000416 BR 2$ 7GO CALL ERR 
2972 012110 012737 000020 001326 20$: MOV #TIMOUT , CPUEXP EXPECTING CPU TIME OUT ON UNIBUS 
2973 012116 011401 MOV (R4) RI :READ LOCATION POINTED TO BY PAR6 
2974 012120 005037 001326 CLR CPUEXP *CLEAR CPIUEXP - DON'T EXPECT TRAPS FOR A WHILE 
2975 012124 020201 CMP R2,R1 ‘SEE IF DATA FETCHED MATCHES PATTERN 
2976 012126 001012 BNE 3$ ‘BRANCH IF NOT SAME 
2977 012130 005014 CLR (R4) ‘TRY TO CLEAR THIS LOCATION 
2978 012132 005737 170200 TST MAPLO ‘SEE IF MAP REGISTER 0 GOT CLEARED 
2979 012136 001006 BNE 3$ *BRANCH IF MAP REGISTLA NOT ZERO 
012140 010237 170200 MOV R2,MAPLO SRESTORE MAPLO 
2981 012144 104207 2s: ERROR +207 ‘GOT TO MAPLD WITH ONE BIT DIFFERENT IN ADDRESS FROM 1777020 
2982 012146 012737 000077 005772 MOV #77,EADRES+2 RESTORE 77 TO EADRES+2 
% 012154 032777 001000 166754 3$: BIT #B1T09,aSWR *SEE IF LOOP ON ERROR IS SET 
2984 012162 001352 BNE 20$ __ }BRANCH BACK TO LOOP IF SO 
2985 012164 012737 000020 001326 4$: MOV #TIMOUT,CPUEXP EXPECTING CPU TIME OUT ON UNIBUS 
2986 012172 010114 MOV R1, (R4) SRELOAD THE LOCATION 
2987 012174 005037 001326 CLR CPUE XP “CLEAR CPIUEXP = DON'T EXPECT TRAPS FOR A WHILE 
2988 012200 012637 172354 5$: MOV (SP)+,KIPAR6 :RESTORE KIPAR6 
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5908 019916 


012600 
074037 
006200 


001277 
013737 


172354 


01200 
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172354 6%: 


(SP)+,RO 
RO,KIPAR6 
RO 


1$ 
$TMP2 ,KIPAR6 


re 


SEQUENCE 71 


;RESTORE RO 
RESTORE BIT TO ORIGINAL STATUS 


;RIGHT SHIFT ONE PLACE 
3GO CONTINUE TEST IF BIT NOT SHIFTED OUT YET 
SRESTORE KIPAR6 


f-— SS —— 
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# 5S = DATA PATH, UNIBUS TO MAIN MEMORY 
- SBTTL 


SL RARER ERE E EERE ERE EERE ERREREEEE 


TEST # 5 = DATA PATH, UNIBUS TO MAIN MEMORY 


pare T*TEST 5 DATA PATH, UNIBUS TO MAIN MEMORY 
| 7* 
| * THIS TEST RUNS A COUNT PATTERN THROUGH A MEMORY LOCATION VIA 
:* THE UNIBUS. THE UNIBUS MAP IS LEFT OFF DURING THIS TEST SO 
te THAT THE ADDRESS IS NOT RELOCATED. THE TEST TRIES TO LOAD THE 
te PATTERN INTO ADDRESS 040000 (8K) BUT IF THE MAP JUMPERS ARE 
:* SET NOT TO RESPOND TO THAT ADDRESS THE NEXT 4K IS TRIED UNTIL 
ts THE TEST GETS TO MAIN MEMORY FROM THE UNIBUS. IF THIS TEST 
* DETERMINES THAT IT CANNOT GET TO MAIN MEMORY FROM THE UNIBUS 
:* IT REPORTS THE FACT AND SKIPS THE NEXT TEST FOR VERIFICATION. 
3* 
MABAAASAAARASLSAALASLSSESARALASSLS SE SESS SESS ERR SE RAS ESSER SSAA ASAE SS 
012224 1815: 
012224 SCOPE 
012226 004737 005166 JSR PC,PRETST :GO SET UP PRETEST DATA 
012232 012612 012244 000005 “WORD 1S16,20$,5 [DATA USED BY PRETST 
3007 012240 737 002772 JSR. PC, CLRMAP 'CLEAR ALL MAP REGISTERS 
3008 012244 012704 000035 20$: MOV #35 RG :DO 35 ACCESSES 
3009 012250 012737 170400 172354 MOV #170400,KIPAR6 :START WITH ADDRESS 8k FROM UNIBUS 
3010 012256 012737 170400 001210 MOV #170400,$TMP6 :=MOVE IT TO $TMP6 ALSO 
3011 012264 005037 001330 2s: CLR PCPUER =CLEAR ERROR CONDITION LOCATION 
3012 012270 012737 20 001326 MOV #TIMOUT,CPUEXP :TIMEOUTS MIGHT OCCUR IN THIS TEST. 
3013 012276 013700 14 MOV 140000,RO :TRY TO READ ADDRESS POINTED TO BY PAR6 
3014 012302 005037 001326 CLR CPUEXP :CLEAR CPUEXP = NO TIMEOUTS FOR A WHILE 
3015 012306 005737 001330 TST PCPUER :SEE IF READ OF ADDRESS TIMED OUT 
3016 012312 001411 BEQ 4$ [BRANCH IF REFERENCE WAS GOOD 
3017 012314 062737 000200 172354 3$: ADD #200, kK 1PARG :TRY NEXT 4K BLOCK OF MEMORY 
3018 012322 062737 000200 001210 ADD #200,$ [ADD 200 TO $TMP6 ALSO 
3019 077423 SOB R4 oe ‘SUBTRACT 1 FROM R4& AND BRANCH IF NOT DONE 
104010 ERROR +10 [NO UNIBUS ADDRESSES RESPOND 
000574 BR SIZEJO [BRANCH TO SIZE JUMPER SECTION 
013737 172354 172352 4$: MOV KIPAR6,KIPARS :PUT PAR6 INTO PARS 
013737 00121C 001206 MOV STMP6,$T [DO SAME TRANSFER 
042737 170000 172352 BIC #170000,KIPARS MAKE PARS A NON UNIBUS ADDRESS 
042737 170000 001206 BIC #170000.$T SCLEAR SAME BITS 
012737 173214 120000 MOV #173214.120000 :PUT OM NUMBER INTO TEST LOCATION BY FAST BUS 
012737 000020 001326 MOV #TIMOUT.CPUEXP :TIMEQUTS MIGHT OCCUR IN THIS TEST. 
013701 140000 MOV 140000,R1 [READ TEST LOCATION BY UNIBUS 
005037 001326 CLR CPUEXP [CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 
022701 173214 CMP #173214,R1 iSEE IF DATA WAS READ PROPERLY 
001406 BEQ 5$ A OKAY NOW VERIFY DATA PATH 
020001 CMP RO.R1 a IF DATA CHANGED FROM FIRST READ 
001004 BNE [BRANCH AROUND NEXT TRY IF SO 
062737 000200 172354 ADD #200, KIPAR6 [TRY NEXT 4K BLOCK OF MEMORY 
077464 SOB R4,2$ ‘BRANCH BACK TO TRY NEXT 4K BLOCK 
012701 006106 5$: MOV #PATRNS ,R1 ‘LOAD ADDRESS OF BIT PATTERNS IN R1 
012702 140000 MOV #140000.R2 S LOAD VIRTUAL ADDRESS INTO R2 
012703 000007 MOV #7,R3 ‘DO 7 PATTERNS 
012737 000020 001326 MOV #TIMOUT CPUEXP Sa MEOUTS MIGHT OCCUR IN THIS TEST. 
011112 63: MOV (R1), (Re) ‘LOAD COUNT INTO TEST LOCATION VIA U.B. 
021112 CMP (R1). (RD) ‘COMPARE COUNT WITH DATA READ 
001426 BEQ 10$ ‘BRANCH IF DATA MATCHES 
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#5 = DATA 


3043 012464 
3044 012470 


3065 012572 
3066 012600 
3067 012602 
3068 012604 


R-sa'x 11/24/44 UBI MAP 


I 6 
MACRO M1113 24=APR-81 10:48 PAGE 62 


A PATH, UNIBUS TO MAIN MEMORY 


001174 
001176 


003624 


003650 
012520 


001000 
000002 


001326 
001320 


001110 
001320 


001206 


001206 


001106 


166400 


172352 


172352 





7$: 


8$: 
9$: 


10$: 


11$: 


(R1),$TMPO 


PC ,PATEXT 
#7$,$LPERR 
8$ 


(R1),(R2) 
(R1),(R2) 
9$ 

+204 
#B1T9,aSWR 
7$ 

#2,R1 
R3.6 
CPUEXP 
ERRCNT 
11$ 
SERTTL 
ERRCNT 


+11 
STMP5S ,KIPARS 
TST6 


+30 
$TMPS ,KIPARS 


SEQUEMFE 


MOVE EXPECTED PATTERN TO $TMPO 
a RECEIVED PATTERN TO $TMP1 
T DATA ON STACK FOR DATEXT SUBROUTINE USE 

; SUBROUTINE TO LOAD DATAOR AND DATAND 
;PUT PATTERN ON STACK FOR hat SUBROUTINE USE 
:GO SET DATA INTO PATTOR AND PATAND 

:SET LOOP ON ERROR POINTER TO els 
BRANCH OVER LOOP ON ERROR SECTION 

;LOAD COUNT INTO TEST LOCATION VIA U.B. 

; COMPARE COUNT WITH DATA READ 
BRANCH IF OK NOW 
;REPORT ERROR(S) ON UNIBUS DATA PATH 

OR IS SET 


0 

:MOVE TO NEXT PATTERN 
;DECREMENT LOOP COUNTER AND BRANCH IF NOT DONE 
;CLEAR CPUEXP - NO TIMEOUTS FOR A WHILE 
; WERE THERE ANY ERRORS ON THIS TEST 

ae IF NO ERRORS ON THIS TEST 
“DON'T COUNT ERROR +11 AS ANOTHER ERROR 
SAME AS ABOVE 

; SUMMARY OF ERRORS ON THE UNIBUS DATA PATH 
:MAKE SURE PARS CONTAINS EXPECTED CONTENTS 

; ;BRANCH IF OK 

KIPARS NOT LOADED PROPERLY = SKIPPING dl TEST 
TRESET KIPARS FOR EXECUTION OF NEXT TES 
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TEST # 6 = MAP [OESN'T RELOCATE IF NOT ENAB 
3082 .SBTTL TEST # 6 = MAP DOESN'T RELOCATE IF NOT ENABLED 
CLARA REAR AERA AREA EAE EREEREREEREEEREEER EERE 
:*TEST a MAP DOESN'T RELOCATE IF NOT ENABLED 
a THIS TEST VERIFIES THAT THE UNIBUS MAP DOES NOT RELOCATE IF BITS 
:* OF MMR3 IS NOT SET. THE TEST ASSUMES THAT THE PREVIOUS TEST HAS 
i* RUN SUCCESSFULLY AND LEFT KIPAR6 BOINTING. TO THE FIRST UNIBUS 
* MAPPING REGISTER THAT THE UNIBUS MAP WILL RESPOND TO GREATER 
:* THAN OR EQUAL TO MAPREG #2. KIPARS IS ALSO POINTING TO THE 
* SAME MEMORY BASE ADDRESS EXCEPT IT POINTS OVER THE FASTBUS. 
te THE TEST THEN SETS ONE BIT IN EACH A.L.U. OF THE UNIBUS MAP 
te AND TRIES TO REFERENCE MAIN MEMORY OVER THE UNIBUS. SINCE THE 
* MAP IS NOT ENABLED THE LOAD WILL GO TO MAIN MEMORY UNRELOCATED. 
** 
PETTITT TTT tt iti it titi iitittittititititititi titi titi titi ttt 
012612 000004 TS7S: SCOPE 
3083 012614 004727 005166 JSR PC,PR :GO SET UP PRETEST DATA 
3084 012620 012726 012672 000006 . WORD SIEI0. 308.6 :DATA USED BY PRETST 
3085 012626 052737 000001 177572 BIS #81T0,MMRO “TURN MEMORY MANAGEMENT BACK ON 
3086 012634 013700 172354 MOY KIPAR6,RO [PUT UNIBUS ADDR ESS oF MAP REGISTER IN RO 
3087 012640 072027 177773 ASH #-5,RO ‘RIGHT SHIFT RO 5 PLACES 
3088 012644 042700 177400 BIC #177400,R0 :CLEAR UPPER BYTE 
3089 012650 042737 177000 172352 BIC #177000, KIPARS =MAKE KIPARS ACCESS THE FAST BUS 
3090 012656 012720 021042 MOV #021042, (RO)+ :SET BOTTOM BIT IN EACH ALU 
3091 012662 012710 000042 MOV #42, (RO) :SET BOTTOM BIT IN 
3092 012666 005037 120000 CLR 120000 :CLEAR TEST LOCATION VIA FAST BUS 
3093 012672 012737 000020 001326 20$: MOV #TIMOUT,CPUEXP TIMEOUTS MIGHT OCCUR IN THIS TEST. 
3094 012700 012737 043207 140000 MOV #43207,140000 :LOAD TEST LOCATION VIA UNIBUS THIS LOAD SHOULD NOT BE 
TRELOCATED BY THE UNIBUS MAP, SINCE BITOS OF MMR3 IS CLEAR. 
3096 012706 005037 001326 CLR CPUEXP [CLEAR CPUEXP = NO TIMEOUTS FOR A WHILE 
3097 012712 013703 120000 MOV 120000,R3 ‘READ TEST LOCATION VIA FAST BUS 
3098 012716 022703 043207 CMP #63207.R3 [SEE IF DATA MATCHES 
3099 012722 001401 BEO SIZEJO *BRANCH IF DATA GOOD 


3100 012724 104012 ERROR +12 ;MAP RELOCATED WHEN NOT ENABLED 
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DETERMINATION OF FIRST USEABLE MAP REGISTER 


3101 .SBTTL DETERMINATION OF FIRST USEABLE MAP REGISTER 
3102 FERRARA RRA ERE EERE RARER E ERE EEEEEREEEERERERERREEREEH 
3103 7* 
3104 ;* THIS TEST DETERMINES THE SETTING OF rt JUMPERS ON THE UNIBUS 
3105 7* MAP WHICH ALLOW THE MAP TO RESPOND TO THOSE ADDRESSES BETWEEN 
3106 :* THE JUMPER RANGE. THE DEFAULT 5 Hae ALLOWS THE MAP TO Se 
3107 ;* TO ADDRESSES 000000 = 757776 ON THE UNIBUS. IF THE JUMPERS ARE 
3108 :* NOT SET IN THEIR DEFAULT POSITION AN INFORMATIONAL MESSAGE IS GIVEN. 
3109 se >>>>>>>>>NOTE<<<<<<KKK 
a9 had THIS IS THE FIRST TEST IN WHICH THE UNIBUS MAP IS TURNED ON. 
** 
3112 pene cag em I tgp gn gem ge me as eet 
3113 012726 012705 020100 SIZEJO: MOV #$DDWO,RS PUT ADDRESS OF $DDWO | 
3114 012732 012700 170200 MOV #MAPLO.RO ;LOAD ADDRESS OF 4 id ag REGISTER IN RO 
3115 012736 012701 000040 MOV #640,R1 +4 7th 40 REGISTERS 
3116 012742 012702 006006 MOV #SPECST.R2 [SET R2 TO BEGINING OF at STACK 
3117 012746 012720 020000 1$: MOV #20000, (RO) + <P OAD 4K INTO LOWER 16 BITS AND 
3118 012752 005020 CLR (RO) + ;CLEAR THE UPPER 6 BITS 
3119 012754 005022 CLR (ROD :CLEAR THE SPECIAL STACK LOCATION 
3120 012756 077105 SOB R1,1$ ‘BRANCH IF THERE ARE MORE TO LOAD 
3121 012760 012703 006006 MOV #SPECST ,R3 sRESET SPECIAL Paead POINTER 
3122 012764 052737 000040 172516 BIS #B1TS ,.MMR3 s¥ ON MAP RELOCATION 
3123 012772 052737 000001 177572 BIS 1T0,MMR sMAKE SURE MEMORY MANAGEMENT IS ON 
3124 013000 012700 117776 MOV #117776,RO THIS WILL BE USED TO SELECT PAR 4, ADDRESS 17776 
3125 013004 012737 170000 172350 MOV #170000.KIPAR4 :LOAD MAP REGISTER 0 -200 IN KIPAR4 
3126 013012 012702 125252 MOV #125252 ,R2 Di fe TO LOAD INTO LOCATION 17776 
3127 013016 012737 177777 001174 MOV #1, MOVE -1 TO MAP REGISTER POINTER 
3128 013024 012737 177777 003532 MOV #-1,F TTHRU SINITIALIZE ONE TIME ENTRANCE FLAG IN SUBROUTINE 
3129 013032 012737 037776 001310 MOV #37776, UBM24L  :MOVE TEST CELL ADDRESS TO LOCATION UBM24L 
3130 013040 005037 001312 CLR UBM24U CL LEAR UPPER LOCATION UBM24U 
3131 013044 012737 013052 001106 MOV #23, SLPERR sMOVE LOOP ON ERRROR ADDRESS TO SLPERR 
3132 013052 012737 000020 001326 2$: MOV #TIMOUT, CPUEXP ;EXPECTING CPU TIME OUT ON UNIBUS 
3133 013060 37 003474 JSR PC, TSTLOC :GO TO SUBROUTINE TO SEE 4 LOCATION RESPONDS 
3134 013064 000417 BR 3$ RETURN IS HERE IF LOWEST FOUND 
3135 013066 005037 90132¢ CLR CPUEXP :CLEAR CPUEXP = NO TIMEOUTS FOR A WHILE 
3136 013072 004737 005230 JSR PC ,DSABLD 60. SEE IF REGISTER SHOULD BE DISABLED 
3137 013076 104214 ERROR +214 3 sal > ER DISABLED WHEN SHOULD BE ENABLED 
3138 013100 737 172350 ADD #200 ,KIPARS ;MAP TO NEXT REGISTER 
3139 013106 022737 177400 172350 CMP #177400, KIPARS +SEE IF WE ARE POINTING JUST BELOW THE 1/0 PAGE 
3140 013114 001356 BNE 2$ GO TEST NEXT MAP REGISTER IF NOT 
3141 013116 104013 ERROR +13 SPATAL ERROR, RESTARTING PROGRAM 
3142 013120 000137 010000 JMP START ; JUMP TO RESTART PROGRAM 
3143 013724 005037 001326 3$: CLR CPUE XP ;CLEAR CPUEXP = NO TIMEOUTS FOR A WHILE 
3144 013130 004737 005266 JSR PC a 60 CHECK TO SEE IF REGISTER SHOULD BE ENABLED 
3145 013134 104213 ERROR +21 :MAP REGISTER ENABLED WHEN SHOULD BE DISABLED 















3146 

3147 

3148 

3149 

3150 

3151 

3152 013136 
3153 013144 
3154 013152 
3155 013160 
3156 013162 
3157 013166 
3158 013174 
3159 013202 
3160 013206 
3161 013214 
3162 013222 
3163 013230 
3164 013236 
3165 013240 
3166 013246 
3167 013254 
3168 013256 
3169 013262 
3170 013270 
3171 013276 
5% 013300 
3173 013304 
3174 013306 


013737 


CKKUACO 11/24/44 UB] MAP 
SECTION TO DETERMINE NUMBER OF 
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USEABLE MAP REGISTERS 
-SBTTL SECTION TO DETERMINE NUMBER OF USEABLE MAP REGISTERS 


OPERA RESSLALALASASE REELS REESE REESE RAR RARE ARREARS RRR R DDD 


ia 
7* 
:* 
$i 


ZEJ1: 


2$: 


3$: 


4$: 


THIS SECTION DETERMINES THE NUMBER OF 


SEQUENCE 


USEABLE MAP REGISTERS BY ACCOM- 


PLISHING THE SAME LOCATION ACCESS TEST AS IN THE PREVIOUS SECTION. 


UBRL 
#170000 , UBML OW 
$TMPO ,UBRHI 


UBRHI 
KIPAR4 ,UBMHI 
#200, UBMH1 
#177400, HIGEST 
#3! MMRH I 

YESMSG 
is SLPERR 
5 KIPAR« 

Nee 

#200 K 
ni7760, RIPARS 
PC, ENABLD 
548 
#TIMOUT, 3¢PUEXP 
PC, TSTL 
23° 
CPUEXP 
PC ,DSABLD 
+214 
$TMPO,MMRHI 
MMR 


HI] 
KIPAR4 ,HIGEST 
HIGEST ,#177400 
NOMSG 


i7EJ1: MOV S7"POLMARLOW  CMOVE REGISTER MUMBER FOUND USEAS 


sMOVE REGISTER NUMBER FOUND USEABLE TO MMRLOW 
:MOVE LOWEST USEABLE oh tune TO LOWEST 
SEE IF LOWEST he iF ER WAS THE 


BRANCH AROUND SE 

;MAP_REGISTER 0 as LOWEST FOR UNIBUS MEMORY 

;MOVE PAR VALUE OF UB MEMORY TO UBMLOW 

;MOVE REGISTER NUMBER FOUND USEABLE TO UBRHI 
POINT IT AT HIGHEST Pe MEMORY MAP REGISTER 

“MOVE reer TO or T AND 


é GISTER 

BRANCH OVER py ti CODE 

CLEAR CPUEXP = DON'T EXPECT TRAPS FOR A WHILE 
SMAP TO NEXT REGISTER 

;SEE IF ALL MAP REGISTERS HAVE BEEN TRIED 
BRANCH IF ALL ARE DONE 
7GO SEE IF MAP REGISTER SHOULD BE ENABLED 

E ED WHEN SHOULD - DISABLED 


0 SUBROU 

“RETURN IS HERE IF IT WAS LOADED 
CLEAR CPUEXP = NO TIMEOUTS FOR A WHILE 

;RETURN IS HERE IF NOT LOADED - GO SEE IF 
;REGISTER SHOULD BE DISABLED 

SMAP REGISTER DISABLED WHEN SHOULD BE ENABLED 
ZMOVE REGISTER FOUND TO MMRHI 

;DECREMENT THIS VALUE = IT IS ONE TOO MANY 
;MOVE FIRST UNUSABLE ry th TO HIGEST 

SEE IF UPPER JUMPER IS DEFAUL 
“BRANCH AROUND MESSAGE TYPEOUT IF IT IS DEFAULT 


76 


HIGHES 
T TO uleset ae USEABLE UBMEM PAGE 


CKKUACO 11/24/44 UBI MAP 
DETERMINE UNUSEABLE MAP REGISTER wINDOW S 


CS 
QUSWN—oO 





001260 
000200 
001174 
013442 


000200 
177400 


005230 


000020 
003474 


001326 
001326 
005266 


172350 
172350 


6 
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-SBTTL DETERMINE UNUSEABLE MAP REGISTER WINDOW SIZE 


SREREERAEREREEEEEAEEAAAAEEEEEEREAEAAAAAEAEREAERARRRARAEKEEEEEREKEEERE 


i THIS SECTION PERFORMS THE SAME LOCATION ACCESS TEST PREVIOUSLY DONE 
:* LOOKING FOR THE FIRST ACCESSIBLE REGISTER, OR THE UPPER LIMIT. ONCE 
te FOUND, THE SIZE OF THE WINDOW HAS BEEN DETERMINED AND THE MESSAGE 
te TELLING THE USER OF THE SIZE IS PRINTED. 
** 
Sep Rg iene grape yee gn renee yey me 
$1ZEJ2: MOV HIGEST,UBMLOW  ;MOVE {UPPER LIMIT TO UBMLOW LOCATION 
ADD #200, UBMLOW [POINT UBMLOW TO FIRST USABLE UNIBUS MEM PAGE 
MOV $TMPO,UBRLOW § :MOVE REGISTER NUMBER TO UBRLOW 
MOV #2$,$LPERR ‘SET LOOP ON ERROR TO 2$ 
BR $ *BRANCH OVER CHECK FOR NON-EXISTENT LOCATION 
1$: ADD #200, KIPARG SMAP TO NEXT REGISTER 
CMP #177400,KIPARS4 :SEE IF WE ARE POINTING JUST BELOW THE 1/0 PAGE 
BEQ 3$ £60 INITIALIZE UBMHI IF WE AR 


JSR PC ,DSABLD O SEE IF LOCATION SHOULD oF DISABLED 
ERROR +214 ‘MAP REGISTER DISABLED WHEN SHOULD BE ENABLED 
23: MOV #TIMOUT,CPUEXP ;TIMEOUTS MIGHT OCCUR IN THIS TEST. 
SUBROUTINE TO *. IF IT DOESN'T RESPOND 


JSR PC, TSTLOC 760 TO 
BR 3$ SRETURN IS HERE IF IT WAS LOADED = GO INITIALIZE UBMHI 
CLR CPUEXP CLEAR CPUEXP = NO TIMEOUTS FOR A WHILE 

BR 1$ SRETURN IS HERE IF NOT - GO BACK FOR ANOTHER TRY 

zAT THIS ape E KIPAR4 POINTS JUST ABOVE HIGHEST ADDRESS Pa Oy ee MEMORY 


3$: CLR CPUE XP CLEAR CPUEXP = NO TIMEOUTS FOR A 
JSR PC,ENABLD ;GO SEE IF MAP REGISTER SHOULD BE ENABLED 
ERROR +213 sMAP REGISTER ENABLED WHEN SHOULD BE DISABLED 


MOV KIPAR4 ,BUPWIN ;MOVE THIS VALUE TO — *UP*PER ‘WIN'DOW 
;MOVE THIS TO UBMHI ALSO 

SMOVE MAP REGISTER POINTER TO UBRHI 

;DECREMENT THIS VALUE - IT IS ONE TOO MANY 
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ROUTINE TO PRINT THE WINDOW SIZE MESSAGE 


3217 

3218 

3219 013524 005737 020022 

3220 013530 001037 

3221 013532 104401 006425 

$556 013536 012700 005744 

32235 013542 012746 013556 

3224 013546 010046 

3225 013550 010146 

3226 013552 000137 002244 

3227 013556 104401 001223 
8 013562 104401 001223 

3229 013566 022703 006 

3230 013572 001416 

3231 013574 104401 006265 
32 013600 012703 

32335 013604 014346 

3234 013606 104405 

3235 013610 104401 001223 

3236 013614 005743 

3237 013616 001402 

3238 013620 011346 

3239 013622 000771 

3240 013624 104401 001223 


me. 


' 


1$: 


2$: 
3$: 


4$: 


SEQUENCE 78 


-SBTTL ROUTINE TO PRINT THE WINDOW SIZE MESSAGE 


$SPASS 


-SCRLF 
#SPECST R353 
NOMSG 

- TOMSG 
MSPECST ,R3 
-(R3) ,=(SP) 


-SCRLF 
-(R3) 


4$ 
os 27 (SP) 
»SCRLF 


WITT TITITITITI LITT TIT LTTE TLL TLL 


SEE IF THIS IS FIRST PASS 
BRANCH TO NEXT sec lion IF NOT FIRST PASS 
T IN DEFAULT = FOR INFO ONLY 


;PUSH | 
+ PUSH RO ON THE STACK 

SH R1 ON THE STACK 
7GO TYPE THE DATA 
phe | A <CRLF> 

TYPE ONE MORE <CRL 
“SEE IF ANY TIMEOUTS ” occuRED 
BRANCH TO NEXT SECTION IF NONE 
; TYPE THE TIMEOUTS MESSAGE 
RESET R3 


[PUSH THE REGISTER # ONTO THE STACK IN ORDER IT WAS PUSHED 
‘TYPE wee R IN DECIMAL, LEADING ZEROS SUPPRESSED 
TSEE IF THERE IS ANOTHER REGISTER NUMBER TO PRINT 

CH AROUND SETUP IF NONE 


BRAN 

[PUSH THIS NUMBER ON THE STACK 
BRANCH BACK TO PRINT IT 

ZTYPE ONE MORE <CRLF> 










3253 013652 
3254 013656 
3255 013660 
3256 013666 


CKKUACO 11/24/44 UBI MAP 
SETUP POINTERS FOR LOWEST AND HIGHEST MAP REGISTERS 


010546 





001300 001302 
000002 001302 


° 
** 
-* 


NOMSG: 


-SBTTL SETUP POINTERS FOR LOWEST AND HIGHEST MAP REGISTERS 


REAR AAERAEARAAEAAEEARAEERARERAREREREEERERREREEREREE 


SETUP POINTERS TO THE LOWEST AND THE HIGHEST USABLE 
MAPPING REGISTERS TO CONTINUE WITH TEST. 





LREGL .LREGU 
#2,LREGU 


RARER EEEREEREEEEEAAREREERAEEERERERERRRERRHEREEE 


SAVE R5S 

SMOVE PAR DATA TO R FOR CONVERSION 

CLEAR BITS 15 TO 12 

:SHIFT INDICATOR BITS TO THE RIGHT 5 PLACES 
[FORM ADDRESS 

;SAVE RESULTS 

RESTORE R5 

;MOVE ADDRESS TO LREGU 

[POINT TO UPPER 6 BITS OF MAP REG 


a get ac ae paperanian ears ey 
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CKKUACO_ 11/24/44 UBI MAP 
TEST # 7 = ENSURE THAT THERE IS NO DUAL MAPPING 


.SBTTL TEST # 7 = ENSURE THAT THERE IS NO DUAL MAPPING 


SRR REAR EERR ERE E REE EEERRE RE ERREEEEEEEREREREREREEERERRERERRE 


ENSURE THAT THERE IS NO DUAL MAPPING 


3275 


3286 766 
3287 013772 
3288 014000 
3289 014004 
3290 014006 
3291 014012 
3292 014014 
3293 014020 
3294 


3295 014024 
3296 014032 
3297 014034 


010237 
012737 
000405 
010237 
012737 


170204 
020000 


040000 
057776 


057776 
037776 
037776 
000200 
000200 
001330 
017776 
172350 


001314 
000020 


.. + 
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000007 


172516 
177572 


177572 
172350 


001314 


001314 
172350 
172350 


001310 


001310 
001326 


ats TEST VERIFIES THAT THERE IS NO DUAL MAPPING. 
HE MAP np SAS: EXCEPT THE ONE UNDER TEST, AND LOADS 


SUBROUTINE CLRMAP CLEAR 
LOAD 


SEQUENCE 80 


IT CLEARS 


IF MA? RELOCATION IS ENABLED (AND 
S ALL BUT THE 


0000 THERE. THIS IS SO 


8 MAPL1, AND 
APT, IF CONTROLLING THIS DIAGNOSTIC, CAN STILL EXAMINE 
1eTER y Hn USES A VIRTUAL ADDRESS 


ONTA 
ABOVE). A REFERENCE IS MADE THROUGH 


AND ANY THAT FETCH THE CORRECT DATA ARE 


EA 
CHECKED TO SEE THAT IT WAS THE MAP REGISTER UNDER 


S8TEST 7 
7* 
3* 
* ALL T 
3* THAT ONE WITH 
;* IN THIS TEST IT IS), 
* LOWER 16 BITS OF 
3* THAT 
3* THE PROPER LOCATIONS. 
* TO SELECT THAT MAP R 
** 
* AS PER CONDITION CRI 
* CH OF THE REGISTERS 
** 
:* NOT, 
i* ARE REPORTED. 
** 
i817: 
SCOPE 
JSR PC ,PRETST 
“WORD 1S110,20$,7 
CLR MMR3 
CLR 24U 
BIS #60,.MMR3 
JSR PC, CLRMAP 
BIC .MMRO 
CLR $TMPO 
MOV #117776,R3 
MOV LREGL,R 
MOV LOWEST ,RO 
BIS .MMRO 
CLR ERRCNT 
100$: MOV LOWEST ,.KIPAR4 
CMP AMAPLO1,R2 
BNE 1$ 
CMP #20000, (R2) 
BEQ 
1$: MOV #40000 (R2) 
MOV 2,57776 
MOV #57776, UBM24P 
23: MOV R2,37776 
MOV #37776, UBM24P 
3$: SUB #200, KIPARS 
4$: ADD #200, KIPAR4 
41$: CLR PCP\'= 
MOV Wevie. UBM24L 
CMP RO, KIPAR4 
BNE 45$ 
MOV UBM24P , UBM24L 
45$: MOV #TIMOUT , CPUEXP 
MOV (R3) ,R4 


TEST. IF 
BOTH THE MAP REGISTER UNDER TEST AND THE DUALED REGISTER 


PPR SSSSSAAS EASES ESAS ESLSSSS ESSE ER RAS ERS RAS MRSA RASA SARA SADAREDDS SD 


:GO SET UP PRETEST DATA 
;DATA USED BY PRETST 
CLEAR MMR3 


L 
;CLEAR THE UPPER EXPECTED LMA LOCATION 
ZENABLE 22-BIT ADDRESSING AND MAP RELOCATION 
: CLEAR a MAP REGISTERS 
; TURN OFF MEMORY MANAGEMENT 
:STMPO IS USED AS A FLAG IN THIS TEST 
SELECT P.A.R. 4 OFFSET OF 17776 
:PUT ADDRESS OF LOWEST USABLE MAP REGISTER IN R2 
LOAD PAR POINTING TO MAP REGISTER UNDER TEST IN RO 
E SURE MEMORY MANAGEMENT IS ON 
CLEAR THE ERROR COUNT FOR ERROR 202 BELOW 
SPAR OF LOWEST USEABLE MAP REGISTER Is; LOADED IN KIPAR4 
7 SEE pd OF _ POINTING AT MAPL1 


H IF NO 
SEE 'F IT CONTAINS 20000 (FOR APT USE) 
BRANCH IF SO 


;LOAD MAP REGISTER UNDER TEST bid - BASE 
;LOAD TEST LOCATION WITH THE ADDR 
OF THE MAP REGISTER UNDER TEST 
;MOVE ANTICIPATED ADDRESS TO LOCATION UBM24P 
BRANCH OVER LOCATION SETUP 
;LOAD TEST LOCATION WITH THE ADDRESS 
OF THE MAP REGISTER UNDER_TEST 
ZMOVE ANTICIPATED ADDRESS TO LOCATION 
PREPARE KIPAR4 FOR FIRST ‘ADD 200° 
; TRY NEXT MAP REGISTER 
[CLEAR THE ERROR RECEIVER 
;MOVE DEFAULT LMA ADDRESS TO UBM24L 
7 SEE IF REGISTER UNDER Test. IS POINTED TO BY KIPAR4 

CH AROUND SETUP IF NOT 
“MOVE SPECIAL LMA ADDRESS TO LOCATICN 
POSSIBLE NON-EXISTENT MEMORY 
[READ THROUGH THE MAP REGISTER 


D 7 
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3309 014120 005037 001326 CLR CPUE XP ;NO MORE TIMEOUTS FOR AWHILE 

3310 014124 005037 001320 CLR ERRCNT ; CLEAR ERROR COUNT 

3311 014130 005737 001330 TST PCPUER 7SEE IF THERE WAS AN ERROR 

3312 014134 001110 BNE 8$ [BRANCH AROUND DATA TEST IF S 

3313 014136 020402 CMP R4,R2 sSEE IF ge DATA WAS FETCHED 

3314 014140 001075 BNE 6$ BRANCH IF NO MATCH 

3315 014142 032777 004000 164766 BIT #B1T11,aSWR ;SEE If THIS IS AN 11/24 WITH UB MEM ONLY 

3316 014150 001406 BEQ 49$ SBRANCH IF NOT 

3317 014152 013737 177736 001304 MOV LMAHI ,LMAH [SAVE LMA HIGH REG IN LMAH 

3318 014160 013737 177734 001306 MOV LMAL OW, LMAL SAVE LMA LOW REG_IN LMAL 

3319 014166 020037 172350 498: CMP RO,.KIPAR4 ;SEE IF MAP REGISTERS ARE THE SAME 

3320 014172 001455 BEQ 5$ BRANCH IF CORRECT MAP REGISTER WAS USED 

3321 014174 737 005076 JSR PC,CHKLMA 3GO CHECK FOR 11/24 WITH MEMORY ONLY 

3322 014 001304 001306 -WORD LMAH,LMAL ZADDRESSES OF LOCATIONS CONTAINING LMA CONTENTS 

3323 014204 50 BR 5$ RETURN IS HERE IF MATCH ACHIEVED 
014 011337 001202 MOV (R3) , STMP3 ;SAVE CONTENTS FOR ERROR PRINTING 

3325 014212 013746 001202 MOV $TMPS,-(SP) SMOVE FAULTY DATA TO STACK FOR SUBROUTINE USE 

3326 014216 013746 172350 MO'/ KIPARS ,-(SP) SMOVE PAR4 CONTENTS TO STACK FOR SUBROUTINE USE 

3327 014222 004737 003674 JSR PC ,ADREXT :GO_ SET DATA IN THE 4 WORDS OF ADDROR «ND ADRAND 

3328 014226 010246 MOV R2,-(SP) ;PUT ADDRESS OF REGISTER ON STACK FOR DATEXT USE 

3329 014230 013746 172356 MOV KIPAR7,~-(SP) SMOVE PAR CONTENTS TO STACK FOR SUBROUTINE USE 
014 737 003624 JSR PC ,DATEXT ;GO SET DATA IN DATAOR AND DATAND 

3331 014240 24 BR 46$ BRANCH OVER LOOP ON ERROR SETUP 

3332 014242 020402 20$: CMP R4,R2 7 SEE IF CORRECT DATA WAS FETCHED 

3333 014244 1023 BNE 7 CH IF NO MATCH 

3334 014246 032777 004000 164662 BIT #B1T11,aSWR SEE IF THIS IS AN 11/24 WITH UB MEM ONLY 

3335 014254 1406 BEQ 59$ [BRANCH IF NOT 

3336 014256 013737 177736 001304 MOV LMAH] ,LMAH 7 SAVE LMA +4 REG IN LMAH 

3337 014264 013737 177734 001306 MOV LMAL OW, LMAL SAVE LMA LOW REG IN LMAL 

3338 014272 020037 172350 59$: CMP RO, KIPAR4 SSEE IF MAP REGISTERS ARE THE SAME 

3339 014276 001406 BEQ 47$ SBRANCH IF CORRECT MAP REGISTER WAS USED 

3340 014300 004737 005076 JSR PC,CHKLMA :GO CHECK FOR 11/24 WITH UB MEMORY ONLY 

3341 014304 001304 001306 -WORD LMAH,LMAL SADDRESSES OF LOCATIONS CONTAINING LMA CONTENTS 

3342 014310 000401 BR 47$ RETURN IS HERE IF MATCH ACHIEVED 

3343 014312 104210 46$: ERROR +210 ;DUAL MAPPING ERROR IN THE UNIBUS MAP 

3344 014314 032777 001000 164614 47$: BIT ABIT9,aSWR :SEE IF LOOP ON ERROR IS SET 

3345 014322 001347 BNE 20$ BRANCH BACK IF SO 

3346 014324 14 BR 8$ [BRANCH AROUND ADDRESS MATCH SETTING 

3347 014326 005237 001174 5$: INC $TMPO SET FLAG WHEN ADDRESSES MATCH 

3348 014332 00041 BR 8$ BRANCH AROUND SUBROUTINE CHECK - NOT NEEDED 
014 004737 005076 6$: JSR PC,CHKLMA :GO CHECK FOR 11/24 WITH UB MEMORY ONLY 

3350 014340 001304 001306 «WORD LMAH,LMAL SADDRESSES OF LOCATIONS CONTAINING LMA CONTENTS 

3351 014344 000401 BR 7$ RETURN IS HERE IF MATCH ACHIEVED 

352 014346 000403 BR 8$ [BRANCH OVER LMA SPECIFIC COMPARE CODE 

3353 014350 020037 172350 7$: CMP RO, KIPAR4 ;SEE IF MAP REGISTERS ARE THE SAME 

3354 014354 001764 BEQ 5$ BRANCH IF CORRECT MAP REGISTER WAS USED 

3355 014356 022737 177400 172350 8$: CMP #177400,KIPAR4 ;SEE IF LAST REGISTER HAS BEEN TRIED 

3356 014364 0014 BEQ 1 BRANCH TO CONTINUE IF SO 

3357 014366 023737 001260 172350 CMP HIGEST,KIPAR4 ;SEE IF ALL HAVE BEEN TRIED 

3358 014374 00122 BNE 4$ BRANCH IF STILL MORE TO TRY 

3359 014376 062737 000200 172350 9$: ADD #200, KIPAR4 ;MAP TO NEXT MAP REGISTER 

3360 014404 022737 177400 172350 CMP #177600, KIPARG ;SEE IF WE ARE AT THE TOP 

3361 014412 00140 BEQ 10$ BRANCH TO CONTINUE IF SO 

3362 014414 023737 001276 172350 CMP BUPWIN,KIPAR4  ;SEE IF WE ARE POINTING TO THE UPPER WINDOW START 

3363 014422 001 BNE 9$ BRANCH BACK FOR ANOTHER INCREMENTING SET IF NOT 

3364 014424 000616 BR 41$ :GO BACK FOR A NEW TRY 

3365 014426 005737 001174 10$: TST $TMPO ;SEE THAT THERE WAS A SUCCESSFUL MATCH 


3366 014432 


3390 014546 
3391 014552 
3392 014554 
3393 014560 


3397 014576 
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THERE IS NO DUAL MAPP] 


172356 
003674 
001174 
170204 
040000 
037776 
000200 
000004 
177400 
001260 
013772 
000200 
000004 
177400 
001276 


014054 
001320 


001110 
001320 


118: 


14$: 


15$: 





SEQUENCE 82 


11$ ;BRANCH IF THERE WAS 
R2,-(SP) ;PUT ADDRESS OF REGISTER ON STACK FOR ADREXT USE 
i eeint [PUT PAR XT USE 


+210 [DUAL MAPPING ERROR IN THE UNIBU 
$TMPO [CLEAR FLAG FOR NEXT REGISTER 
#MAPLOT.R2 SEE 1 Re Is POINTING TO MAPL1 


#40000, (R2) “DOES MAPL1 CONTAIN 40000? 

12$ :BRANCH IF IT DOE 

37776 SCLEAR LOCATION S776 ONLY = MAPL1 IS TO BE LEFT ALONE 

13$ :SKIP OVER REGISTER CLEAR STEP 

(R2) [CLEAR MAP REGISTER JUST TESTED 

#200,RO :POINT TO NEXT MAP REGISTER UNDER TEST 
R2 [POINT TO NEXT MAP REGISTER TO LOAD 

#177400,RO ;SEE IF LAST REGISTER HAS BEEN TRIED 

15$ CH TO NEXT SECTION IF SO 

HIGEST,RO “SEE IF ALL MAP REGS HAVE BEEN TESTED 

14$ [BRANCH IF NO MORE TO TEST 

100$ : JUMP TO BEGIN AGAIN 

#200,RO [POINT TO NEXT MAP REGISTER UNDER TEST 

#4 ,R2 ‘POINT TO NEXT MAP REGISTER TO LOAD 

#177400,R0 [SEE IF LAST REGISTER HAS BEEN TRIED 

15$ [BRANCH TO NEXT SECTION IF SO 

RO, BUPWIN TSEE IF WE ARE POINTING TO UPPER WINDOW START 

118 ‘BRANCH FOR ANOTHER INCREMENT SET IF NOT 

$ * JUMP BACK FOR ANOTHER 

ERRCNT [SEE IF THERE WERE ANY ERRORS 

TST10 : :BRANCH TO NEXT TEST IF NO ERRORS 

SERTTL DON'T COUNT ERROR +16 AS ANOTHER ERROR 

ERRCNT ‘SAME AS ABOVE 

+16 [SUMMARY OF DUAL MAPPING ERRORS 


i 


f <9 ae eres Fac es esd as a ae we : ; 


7 
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EST # 10 = LOAD LOC'S 40000-77776 WITH THEI 


SEQUENCE 83 





| 7 
| 3606 .SBTTL TEST # 10 = LOAD LOC’S 40000-77776 WITH THEIR ADRES'S 
3 FERRARA EERE EEE EEE ERE ERE REREEREEERREERERREERRRRERRE REARS | 
| :*TEST 10 LOAD LOC'S 40000-77776 WITH THEIR ADRES'S | 
3* 
* THIS TEST IS USED TO LOAD MAIN MEMORY FROM ADDRESS 00040000 To | 
* ADDRESS 000077776 WITH ITS OWN ADDRESS. IT THEN CHECKS THAT 
* MEMORY OVER THE UNIBUS AND LOGS ANG REPORTS ANY ERRORS THAT 
i IT FINDS. 
** 
+; TRRRARALAAALAAZAAAAAEABRAAARARAAEEEEAAEEEEARASESESARASL ERASERS ASS SE SS 
014600 TST10: 
014600 SCOPE 
014602 737 005166 JSR PC,PR :GO SET UP PRETEST DATA 
014606 015054 015012 000010 “WORD TST11, OOS 10 :DATA USED BY PRETST 
3407 014614 042737 000040 172516 BIC 1T5.MMR3 "TURN OFF MAP RELOCATION 
3408 014622 012737 00 172350 MOV #400, KIPARG ‘MAP PAGE 4 TO 8K 
3409 014630 012700 040000 MOV #40000, ‘STARTING ADDRESS FOR DATA PATTERN 
3410 014634 012701 100000 1$: MOV #100000,R S VIRTUAL ADDRESS 
3411 014640 012702 010000 MOV #4096. ,R SLOAD 4096 LOCATIONS AT A TIME 
3412 014644 010021 2$: MOV RO, (R1}+ “LOAD PHY. ADDR. INTO EACH MEMORY LOC. 
3413 014646 062700 000002 ADD 2.RO ‘POINT TO NEXT PHYSICAL ADDRESS 
3414 014652 077204 SOB R2,2$ ‘BRANCH IF 4K OF MEMORY NOT LOADED 
3415 014654 062737 000200 172350 ADD #200, ,KIPARG “POINT TO NEXT 4K BANK OF MEMORY 
3416 014662 022737 001000 172350 CMP #1000,KIPARG § :SEE IF 16K IS LOADED 
3417 014670 101361 BHI 1$ [BRANCH IF MORE MEMORY TO LOAD 
** 
3419 :* MEMORY FROM 8K - 16K IS NOW LOADED WITH ITS OWN ADDRESS 
** 
3421 014672 022737 171000 172354 CMP #171000,KIPAR6 ;DID I USE ANY MAP REGISTER 
;BELOW REGISTER 6 (UB. ADDR 100000) 
3423 014700 101465 BLOS __‘TST11 : ;BRANCH TO NEXT TEST IF NOT 
3424 014702 013700 172354 MOV KIPAR6,RO :LOAD PAR6 INTO RO TO GET 
3425 ‘THE STARTING DATA PATTERN 
3426 014706 072027 000006 ASH #6,RO "RO NOW HOLDS THE STARTING DATA PATTERN 
$427 014712 012701 14000C 3$: MOV #140000, R1 ‘STARTING VIRTUAL ADDRESS 
3428 014716 012702 010000 MOV #4096. ‘PREPARE TO READ 4K AT A TIME 
3429 014722 011103 4$: MOV (R1) ase *READ MAIN MEMORY THR UNIBUS 
3430 014724 02000 CMP RO,R3 [SEE IF THE ADDRESSES MATCH 
3431 014726 00101 BNE *BRANCH IF ERROR 
3432 014730 022120 5$: CMP (RI), (RO)+ *CHANGE VIRTUAL & PHYSICAL ADDRESSES 
3433 014732 077205 SOB 4$ ;BRANCH IF 4K OF MEMORY NOT READ 
3434 014734 062737 000200 172354 ADD 4366 KIPAR6 ‘POINT TO NEXT BANK OF 4K THROUGH UNIBUS 
3435 014742 022737 171000 172354 CMP #171000,KIPAR6 :SEE IF THIS POINTS TO 16K PLUS 
3436 014750 101 BHI 3$ ‘BRANCH IF 16K OF MEMORY NOT CHECKED 
3437 014752 30 BR 10$ [TEST FINISHED, BRANCH TO EXIT 
3438 014754 011146 6$: MOV (R1),-(SP) “PUT VIRTUAL ADDRESS ON STACK FOR ADREXT SUBROUTINE USE 
3439 014756 013746 172354 MOV KIPAR6,-(SP) | :PUT PAR6 CONTENTS ON STACK FOR SUBROUTINE USE 
3440 014762 004737 003674 JSR PC ,ADREXT *GO SET DATA IN THE 4 WORDS OF ADDROR AND ADRAND 
014 010146 MOV R1,-(SP) ‘PUT DATA ON STACK FOR DATEXT SUBROUTINE 
3442 014770 013746 172344 MOV KIPAR2,-(SP) | :MOVE PAR CONTENTS TO STACK FOR. SUBROUTINE USE 
3443 014774 004737 003624 JSR PC ,DATEXT ‘SUBROUTINE TO LOAD DATAOR AND DATAND 
3444 015000 010337 005774 MOV R3.EADRS2 :MOVE DATA IN, R3 TO EADRS2 FOR ERROR CALL 
015 005037 005776 CLR EADRS2+2 SCLEAR UPPER 6 BITS TO PR 
3446 015010 00040 BR 7$ [BRANCH OVER LOOP ON ORROAY SETUP 
3447 015012 011103 20$: MOV (R1),R3 ‘READ MAIN MEMORY THROUGH UNIBUS 
3448 015014 02000 CMP RO,R3 ‘SEE IF THE ADDRESSES MATCH 
3449 015016 001401 BEQ 8$ “BRANCH IF OK 


a Ne 


CKKUACO 11/24/44 UB] MAP MACRO M1113 yen y 10:48 PAGE Sef SEQUENCE 
TEST # 10 = LOAD LOC'S 40000-77776 WITH THEIR ADRES 
7$: ERROR +205 DIDN'T READ ADDRESSES CORRECTLY FROM UNIBUS 
001000 164106 8$: BIT #B1T9,aSwWR ;SEE IF LOOP ON ERROR IS SET 
BNE 20$ BRANCH BACK IF SO 
BR 5$ ht fae oe | TESTING 
001320 10$: TST ERRCNT WER —E THERE ANY ERRORS ON THIS TEST? 
BEQ TST11 ;;BRANCH IF NO ERRORS ON THIS TEST 
001110 DEC SERTTL [DON'T COUNT ERROR +14 AS ANOTHER ERROR 
001320 DEC ERRCNT [SAME AS ABOVE 


ERROR +14 ; SUMMARY OF UNIBUS ADDRESS FAILURES 








7 
CKKUACO_ 11/24/44 UBI MAP MACRO M1113 24~APR-B1 10:48 PAGE a SEQUENCE 85 
TEST # 11 = MAIN MEMORY TIMEOUT THROUGH MAP 
3467 .SBTTL TEST # 11 = MAIN MEMORY TIMEOUT THROUGH MAP 
FL RRAAAARAARAAAERAARAAAARERAAAEERAERERRRERRARREERARERRERARERER ERAS 
:STEST 11 MAIN MEMORY TIMEOUT THROUGH MAP 
ie THIS TEST GENERATES A TIME OUT THROUGH THE UNIBUS MAP BY TRYING 
ie TO REFERENCE ADDRESS 17000000 IN MAIN MEMORY. IT USES THE LOWEST 
:* USABLE MAP REGISTER, WHICH IN THE DEFAULT CASE IS MAP REGISTER 
;* . 
S » encenenceneqnannnenecceneeanennnesennnteneerennereqneeqesessnee 
015054 $111: 
015054 000004 SCOPE 
015056 004737 005166 JSR PC, PRETST ;GO_SET UP PRETEST DATA 
015062 015122 015114 000011 .WORD TST12,208,11 — :DATA USED BY PRETST 
3468 015070 052737 000040 772516 BIS #BIT5 .MMR3 TURN MAP RELOCATION BACK ON 
3469 015076 005037 004312 CLR —_LOEFLG CLEAR LOEFLG FOR ERROR LOOP INDICAT 
3470 015102 012737 000074 001312 MOV #74, UBM24U ‘EXPECTING 24 IN UPPER POSITION OF 11/26 LMA 
3471 015110 005037 007310 CLR = UBM24L EXPECTING ZERO IN LOWER POSITION 
3472 015114 006737 017554 208: JSR PC,MMTOTM :GO0 DO THE 


TEST 
3473 015120 104015 ERROR +15 [RETURN HERE IF ERROR - UNIBUS DID NOT TIME OUT 


c+ eC ere 


CKKUACO 11/24/44 UBI MAP MACRO M1113 24=APR-81 10:48 PAGE 1? SEQUENCE 86 
TEST # 12 = RELOC USING LOWEST USABLE MAP REG THRU UNIBUS 


3484 .SBTTL TEST # 12 = RELOC USING LOWEST USABLE MAP REG THRU UNIBUS 
é FERRARA RERRERAERARRERERRREERRRAEREAAARRERERRERE AERA S 
T8TEST 12 RELOC USING LOWEST USABLE MAP REG THRU UNIBUS 
7@ 
ie THIS TEST CHECKS OUT THE FULL ADDITION PROPERTIES OF THE UNIBUS 
:* MAP A. IN THE DEFAULT CASE IT USES MAP REGISTER ZERO BUT 
ie IF THE MAP JUMPERS HAVE BEEN ALTERED TO DE-SELECT SOME MAP REGISTERS 
te THIS TEST WILL USE THE LOWEST USABLE MAP REGISTER. 
:* IF AN ERROR OCCURS THE TEST WILL REPORT THE PHYSICAL ADDRESS 
te THAT WAS DESIRED, AND THE DATA AT THE ADDRESS THAT WAS REFERENCED. 
** 
*: TRE RRRRSSASASEAZAELE SELES EEE SEES EEE RE RRR RARER RR RASA SR RASA RAR RRS SS 
22 TST12 
22 000004 SCOPE 
24 004737 005166 JSR PC PRETST :GO SET UP PRETEST DATA 
30 015174 015136 000012 .WORD 1S113,20$,12 DATA USED BY PRETST 
36 0050.7 004312 20$: CLR LOEFLG [CLEAR LOEFLG - FLAG USED FOR ERROR RETURN 
86 42 005037 001312 CLR UBM24U [CLEAR UPPER LOCATION 
3487 015146 004737 004106 1$: JSR PC ,MAPADD [GO DO THE TEST 
88 52 104211 ERROR +211 [RETURN IS HERE FOR ERROR 
3489 015154 000774 BR 1$ [GO BACK TO THE SUBROUTINE 


| 
| 
| 
| 

0151 

0151 

0151 

0151 

3485 0151 

3486 0151 

151 

151 

151 


| 
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ol # 13 = CARRY PROP OF MAP'S RELOC ADDER THRU UNIBU 


3498 -SBTTL TEST # 13 = CARRY PROP OF MAP'S RELOC ADDER THRU UNIBUS 


RRR EREREEREEAAEAAEERAREERRERAAERRAEREREREEEHERE 


S*eTEST 13 CARRY PROP OF MAP'S RELOC ADDER THRU UNIBUS 
**% 


® EVERY ADDRESS OF THE FORM XXXxX0000 IS GENERATED HERE STARTING 
* WITH 00030000 UP TO 17000000. THAT IS, THE FIRST OF EVERY 2k 
* WORDS IS ADDRESSED, TO INSURE THAT THE ADDER IN THE MAP IS 

;* WORKING PROPERLY . 

3* 

i$ 


015156 000004 TST13: SCOPE 

99 015160 004737 005166 JSR PC ,PRETST 7GO SET UP PRETEST DATA 
3500 : PTTITTTTOT TITTLE TTL TLE LLL 
3501 ; ** IMPORTANT *® : IF THE POSITION OF THIS TEST IS CHANGED, CHANGE THE THIRD 
3502 : WORD BELOW TO THE NEW TEST NUMBER THIS TEST WILL OCCUPY. 
3503 es lalalelalelelalaleiebeleibelatehe 
3504 015164 015220 015172 000013 «WORD 2$,20$,15 ;DATA_USED BY PRETST 
3505 000040 NEXMEM=B1 15 [BITOS IS NON-EXISTENT MEMORY BIT IN THE CPU ERROR REGISTER 
3506 015172 005037 004312 20$: CLR LOEFLG ;CLEAR LOFrLG - Fie AS AN ERROR RETURN FLAG 
3507 015176 005037 091312 CLR UBM24U CL EAR WP” LOCATION 
3508 015202 012737 020000 001319 MOV #20000,UBM24L :PUT 20000 IN LOWER LOCATION 
3509 015210 004737 004416 1$: JSR PC, TCPMRA :GO DO THE TEST 
3510 015214 104211 ERROR +211 [RETURN IS HERE IF AN ERROR 
3511 015216 000774 BR 1$ ;RETURN TO THE TEST 


3512 015220 2$: 









7 
3518 015220 


3524 015246 


3550 015312 
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013701 


010137 

















001100 
004000 


000005 
015702 


001302 
020000 


001256 
90020C 
172342 
000200 
172340 


163700 
001100 
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MACRO M1113 24=-APR=81 10:48 PAGE 74 SEQUENCE 


.-SBTTL UNIBUS MAP SETTUP 


RARER ERERER EERE EREAEEREREREHEKRERE 


; THE NEXT 3 TESTS ARE RUN THROUGH THE UNIBUS MAP 
LEAR A REAR EERE EE EERE EERE E AERA EEERERERRERERRRRRERE EE 
UBMSU: SCOPE ;LOOP ON PREVIOUS TEST 
DECB $TSTNM :DECREMENT STSTNM = THIS IS NOT A TEST 
TBITR SRESTORE T-BIT IF IT WAS ON 
BIT #B1T11,aSWR ;SEE IF THIS IS AN 11/24 WITH UB MEMORY ONLY 
BEQ 1$ BRANCH TO SETUP IF NOT 
ADD #5,$TSTNM FUDGE STSTNM 5 TESTS AHEAD AND 
JMP TST21 [JUMP OVER NEXT 5 TESTS 
LL AAA RARER ERE EE EEE RE EERE ERE EEEE EERE KEEERERERERR EEE 
-* 
3* THIS CODE SETS UP THE TWO MAP REGISTERS ABOVE THE LOWEST 
hee USABLE ONE TO POINT TO PHYSICAL MEMORY FROM 0 - 8K. IN THE 
a DEFAULT CASE, IN MANUFACTURING AND IF THERE IS NO UNIBUS MEMORY, 
s* THIS WILL BE MAP REGISTERS 1 AND 2. MAP REGISTER 1 WILL POINT 
be TO PHYSICAL 4K = 8K SO ‘‘ACT=11'' WILL WORK PROPERLY AND MAP 
38 REGISTER 2 WILL POINT TO PHYSICAL 0 - 4K. THIS MEANS THAT 
“hed age | hee GET 170400 SO IT PUTS ADDRESSES 040000 TO 057776 
:* THE UNIBUS_AND KIPAR1 SHOULD GET 170200 SO IT PUTS ADDRESSES 
bs 020000 10. 037776 ON THE UNIBUS. 
oe 
LL AAA RRR EERE RE EEE EEE KERR ARR EERE KERR EK 
1$: MOV LREGU,R1 ;PUT POINTER TO LOWEST MAP REGISTER IN R1 
TST (R1)+ POINT TO LOWER 16 BITS OF LOWEST + 1 
MOV #20000, (R1)+ LOAD LOWER 16 BITS OF (LOWEST + 1), POINTING TO 4-8Kk 
CLR (R1)+ :CLEAR UPPER 6 BITS OF (LOWEST + 1) 
CLR (R1)+ ZCLEAR LOWER 16 BITS OF (LOWEST + 2) 
CLR (R1)+ [CLEAR UPPER 6 BITS OF (LOWEST + 2) 
MOV LOWEST ,R1 ZLOAD R1 
ADD #200,R1 :POINT R1 TO (LOWEST + 1) 
MOV R1,KIPAR1 ;LOAD PAR1 
ADD #200,R1 POINT R1 TO (LOWEST + 2) 


R1,KIPARO LOAD PARO 


a 












CKKUACO 11/24/44 UBI MAP MACRO M1113 24-APR=81 = 48 PAGE bs” SEQUENCE 
TEST # 14 = MAIN MEM. T.0. THROUGH MAP, CODE RUN OVER U.B 


3562 .SBTTL TEST # 14 ~ MAIN MEM. T.0. THROUGH MAP, CODE RUN OVER U.B. 
[RARER A EAA ERE RARER ERE REAR EEE RARER RARER REE EAEEREREREEREERRRER 
TATEST 14 MAIN MEM. T.0. THROUGH MAP, CODE RUN OVER U.B. 
:* 
:* THIS TEST GENERATES A TIME OUT THROUGH THE UNIBUS MAP BY TRYING 
:* TO REFERENCE ADDRESS 17000000 IN MAIN MEMORY. IT USES THE LOWEST 
:* USABLE MAP REGISTER, WHICH IN THE DEFAULT CASE IS MAP REGISTER 
** . 
** 
te THIS TEST IS BEING RUN WITH ALL MEMORY REFERENCES GOING THROUGH 
:* THE UNIBUS MAP. 
** 
eetititiiiiitiiiiiiittiiiiiiiiiiiii iii 
015316 T5114: 
015316 000004 SCOPE 
015320 004737 005166 JSR PC,PRETST :GO SET UP PRETEST DATA 
015324 615344 015336 000014 .WORD TST15,20$,14 | :DATA USED BY PRETST 
3563 015332 005037 004312 CLR LOEFLG :CLEAR LOOP ON ERROR FLAG 
3564 015336 004737 017554 208: JSR PC,MMTOTM >G0 DO TEST ON PAGE 60 OF THIS LISTING 


64 01 
3565 015342 +15 ‘RETURN HERE IF ERROR - UNIBUS DID NOT TIME OUT 





89 
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CKKUACO 11/24/44 UBI MAP MACRO M1113 24-APR=81 y - PAGE "6 SEQUENCE 90 
TEST # 15 = RELOC USiwG LOWEST USABLE MAP REG USING MAP R 


3579 .SBTTL TEST # 15 = RELOC USING LOWEST USABLE MAP EG USING MAP REG 
LERAEERA RARER EEE E EERE REE AERA RERERRERREERERERREREERE 
*TEST 15 RELOC USING LOWEST USABLE MAP REG USING MAP REG 
oe 
ie THIS TEST CHECKS OUT THE FULL ADDITION PROPERTIES OF THE UNIBUS 
:* THE DEFAULT CASE IT USES MAP REGISTER ZERO BUT 
:* Tf THE MAP’ JUMPERS HAVE BEEN A: TERED TO DE-SELECT SOME MAP REGISTERS 
i* THIS TEST WILL USE THE LOWEST USABLE MAP REGISTER. 
:* IF AN ERROR OCCURS THE TEST WILL REPORT THE PHYSICAL ADDRESS 
:* THAT WAS DESIRED, AND THE DATA AT THE ADDRESS THAT WAS REFERENCED. 
*% 
i* THIS TEST IS BEING RUN WITH ALL MEMORY REFERENCES GOING THROUGH 
:* THE UNIBUS MAP. 
*% 
*: : SRR EEKEEEREEEEEREEREKEEREEEREEEERERKEREEREEEREEREEREE 
015344 T$115: 
015344 000004 SCOPE 
015346 004737 005166 JSR PC,PRETST :GO_ SET UP PRETEST DATA 
015352 015402 015366 000015 -WORD 15716,20$,15 | :DATA USED BY PRETST 
3580 015360 012737 060000 060000 MOV -#060000,060000 MAKE SURE ADDRESS 060000 CONTAINS ITS OWN ADDRESS AS DATA 
3581 015366 005037 004312 20$: CLR LOEFLG :CLEAR LOEFLG - USED IN ERROR RETURN 
3582 015372 004737 004106 1$: JSR PC ,MAPADD [GO DO THE TEST 
3583 015376 104211 ERROR +211 RETURN IS HERE FOR ERROR 
3584 015400 000774 BR 1$ [RETURN TO THE SUBROUTINE 


a 


r 
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“a 'y 11/24/44 UBI MAP MACRO M1113 24-APR-81 ms 4 48 PAGE "7 SEQUENCE 91 
TEST # 16 = CARRY PROP OF MAP'S RELOC ADDER USING MAP R 
3593 .SBTTL TEST # 16 = CARRY PROP OF MAPS RELOC ADDER USING MAP REG 
FERRARA REAR A RAE A TERRE RARE RAAT AERA ER AER R RE R REE ee 
:*TEST 16 CARRY PROP OF MAP’S RELOC ADDER USING MAP REG 
te 
bes EVERY ADDRESS OF THE FORM XXXxX0000 IS GENERATED HERE STARTING 
7* WITH 00030000 UP TO 17000000. THAT IS THE FIRST OF EVERY 2k 
ta WORDS IS ADDRESSED, TO INSURE THAT THE ADDER IN THE MAP IS 
ad WORKING PROPERLY . 
+t 
UTI tr titties 
015402 TST16: 
015402 000004 SCOPE 
015404 004737 005166 JSR PC,PR :GC SET UP PRETEST DATA 
015410 015432 015416 000016 . WORD rsh? Ss, 16 [DATA USED BY PRETST 
3594 015416 005037 004312 208: CLR LOEFL ;CLFA® OEFLG - USED AS ERROR RETURN FLAG 
3595 015422 004737 004416 1$: JSR PC, TCPMRA 7GO #5 THE TEST 
3596 015426 104211 ERROR +211 ZRETURN IS HERE IF AN ERROR 
3597 015430 000774 BR 1$ ;RETURN TO THE TEST 





= OO OO 


wee ee 


| 


M113 
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3 24-APR-81 10:48 PAGE Be SEQUENCE 92 


-SBTTL TEST # 17 = VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 


J LARA AAAREAAEERAEERAERERE EERE EEEREEERERERERREEEERRREERREREEED 


CKKUACO 11/24/44 UBI MAP MACRO M 
TEST # 17 = VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 
3628 
015432 
015432 
015434 737 00516€ 
440 015560 015536 000017 
3629 015446 5037 177572 
3630 015452 005037 172516 


00 
3632 015462 012737 000200 172342 


000477 
3637 015504 132737 000200 020035 
38 015512 
3639 015514 032737 000100 020036 


3641 015524 000404 

3642 015526 032777 000100 163402 
3643 015534 001411 

3644 015536 004737 005324 

3645 015542 001 00 

3646 015544 012737 000000 177746 
3647 015552 005703 

3648 015554 001401 

3649 015556 104020 


z*TEST 17 VERIFY TRAP DUE TO CACHE PARITY INTERRUPT 
é FARA ERERERREEEEEEEERERERREREEERRERERRRERRERERRRRRRERERER 
th kkkkkeeeereNOTEtearanaaaae 
:* THE MAP WILL BE SHUT OFF FOR THE it ae o THE DIAGNOSTIC 
3* BEFORE ANY TEST CODE IS EXECUTED. IT IS NOT NEEDED. 
LEAR AAA REERERERERREREREERREERERERRRRAERRRERRERERERERER 
LL ERRRRAREERERREREREERREREEREREREREERERREEEREREREREEERRRERERREREE 
:* THIS TEST IS OPTIONAL AND IS SELECTED BY SETTING MFM HARDWARE 
3* gh sy pe tak BI7 08 TO A 1 IN THE CASE OF STANDALONE OPERATION 
3* F THE DIAGNOSTIC. IN THE CASE OF MANUFACTURING APT RUNTIME MODE 
;* CHEN BIT 08 OF SSWREG IS SET TO 1 THROUGH APT SCRIPTING. 
:* THE TEST VERIFIES THE SIGNAL GENERATED FROM THE CACHE 
;* TO THE UBI MODULE WHICH INDICATES TO THE UBI THAT A CACHE INTERRUPT 
:* IS BEING CALLED FOR(CACHE PE INTR L). 
** 
:* THIS TEST ASSUMES THAT ALL MODULES EXCEPT THE UBI MODULE ARE KNOWN 
3* GOOD MODULES. 
s* THIS TEST TOGETHER WITH OTHER CACHE TESTS,ALLOW MFG. TO ELIMINATE 
;* HAVING TO RUN THE CACHE DIAGNOSTIC DURING QUICK 
;* VERIFY TESTING OF THE UBI MODULE. 
;* TEST DESCRIPTION: 
;* VERIFY INTERRUPT LOGIC BY ASSURING THAT A TRAP OCCURS TO LOCATION 
;* 114 WHEN A LOCATION PREVIOUSLY WRITTEN 
3* WITH WRONG HI/LO BYTE PARITY IS ACCESSED. 
3* CONDITIONS: PEA=0 
+ DCPI=0 
Z OPPS SESASSASZASLASZELASALLZASALESLAALESE SESE SESSA SASS ARR RRR RAR SARA SAAS SS SG 
TST17 
SCOPE 
JSR PC,PRET ;GO SET UP PRETEST DATA 
“WORD TST20, 5S, 17 :DATA USED BY PRETST 
CLR MMRO > TURN OFF MEMORY MANAGEMENT 
CLR MMR3 STURN OFF MAP RELOCATION 
CLR KIPARO :PUT PARO BACK WHERE IT SHOULD AND 
MOV #200,KIPAR1 :PUT PAR1 BACK WHERE IT SHOULD 
TSTB CPUTYP 71S THIS AN 11/24? 
BEQ 1$ [BRANCH OVER JUMP IF 11/44 
INCB $STSTNM ; INCREMENT TEST NUMBER TO spare SKIPPING TEST 
BR TST21 “BRANCH OVER THIS AND NEXT TESTS 
1$: BITB #200, SENVM 71S APT SIZING? 
BEQ 2$ =NO; TRY HARDWARE SWITCH REGISTER 
BIT #100, $SWREG *YES APT IS SIZING:DOES APT SAY TO DO THIS TEST 
BEQ TST20 ::NO = SKIP TEST 
BR 20$ [YES,DO TEST 
2$: BIT #100, aSWR ;DOES HARDWARE SuITCH REGISTER SAY TO DO TEST? 
BEQ TST20 ::;NO - SKIP TEST 
20$: JSR PC,CASHSR :GO DO THE CASH TEST 
-BYTE 1 :1ST BYTE - 1ST CACHE TEST FLAG, 2ND - BYTE TO LOAD TO CACHE 
MOV #0, CACHE STURN CACHE ON 
TST R3 ;DID TRAP OCCUR? 
BEQ TST20 +;BRANCH TO NEXT TEST IF YES 
ERROR +20 : INTERRUPT/ABORT LOGIC TESTS TRAP TO LOC 114 DID NOT OCCUR 


nsinaiieilimanaial 
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CKKUACO_ 11/24/44 UBI MAP MACRO M1113 24-APR=81 10:48 PAGE 79 SEQUENCE 
TEST # 20 = VERIFY TRAP DUE TO CACHE PARITY ABORT 


3683 - SBTTL TEST # 20 = VERIFY TRAP DUE TO CACHE PARITY ABORT 

-eeRERRRAR RARER ERR RARER AREER E RARER KERR 

; TEST 20 VERIFY TRAP DUE TO CACHE PARITY ABORT 
THIS TEST IS OPTIONAL AND IS SELECTED BY SETTING MFM HARDWARE 
SWITCH REGISTER BIT 08 TO A 1_IN THE CASE OF STANDALONE OPERATION 
OF THE DIAGNOSTIC. IN THE CASE OF MANUFACTURING APT RUNTIME MODE 
THEN BIT 08 OF $SWREG IS SET T9 1 THROUGH APT SCRIPTING. 


THE TEST VERIFIES THE SIGNAL GENERATED FROM THE CACHE (BUS PBL) 
TO THE UBI MODULE WHICH INDICATES TO THE UBI THAT A CACHE ABORT 
IS BEING CALLED FOR. 


THIS TEST ASSUMES THAT ALL MODULES EXCEPT UBI ARE KNOWN GOOD MODULES 


THIS TEST TOGETHER WITH OTHER CACHE TESTS,ALLOW MFG. TO ELIMINATE 
HAVING TO RUN THE CACHE DIAGNOSTIC DURING QUICK 
VERIFY TESTING OF THE UBI MODULE. 


TEST DESCRIPTION: 


VERIFY ABORT LOGIC BY THE FOLLOWING RESULTS WHEN A WOCATION 
PREVIOUSLY WRITTEN WITH WRONG HI/LO BYTE PARITY IS ACCESSED. 
1. INSTRUCTION CYCLE WILL BE ABORTED 
2. THE ABORT CAUSES TRAP TO 114 


PROCEDURE : INHIBIT CLOCKING OF PARITY ERROR SIGNAL TO 
INTERRUPT LOGIC. ALLOW CMPE<15> TO BE SET 
BY ABORT SIGNAL WHICH IS ASSERTED BY PARITY 
ERROR SIGNAL TO ABORT LOGIC. 


Mm: =e eeenennenennnneneeeneeeeneeeaneenenenee oy 


ate Se Be Be Be Be Be Be Be Be He Be Be He Be Be Be Se Be Be Be Se Be Be Se Be Fe Se Se Se Se Se 


CONDITIONS: PEA=1 
DCPI=1 
MASSAS££2 222 22 222 SSSESSASSSESESARASA SEARLES ARES SAS ALAS ALARA SSS SD | 

015560 T20: 

015560 000004 SCOPE 

015562 004737 005166 JSR PC,PR :GO_ SET UP a Oke te — 

015566 015702 015636 000020 . WORD stat. “208, 20 ;DATA USED BY PRETS 
3684 015574 032777 000100 163334 BIT #BIT :DOES SWITCH REGISTER SAY TO DO TEST? 
3685 015602 001432 BEQ 21 3° :NO - SKIP TEST 
3686 015604 132737 000200 020035 BITB #200, SENVM iTS APT SIZING? 
3687 015612 001405 BEQ 12$ NO; TRY HARDWARE SWITCH REGISTER 
3688 015614 032737 000100 020036 BIT #100, $SWREG ives APT IS SIZING;DOES APT SAY TO DO THIS TEST 
3689 015622 001422 BEQ 21$ 3NO - SKIP TEST 
3690 015624 000404 BR 20$ 7 YES, DO TEST 
3691 015626 032777 000100 163302 12$: BIT #100, aSWR “DOES HARDWARE SWITCH REGISTER SAY TO DO TEST? 
3692 015634 001415 BEQ :NO - SKIP TEST 
3693 015636 004737 005324 20$: JSR PC, CASHSR :GO_DO CACHE TEST 
3694 015642 002 004 -BYTE 2,4 31ST BYTE - 2ND CACHE TEST FLAG, 2ND - CACHE LOAD VALUE 
3695 015644 022704 177777 CMP A-1,R4 :WAS INSTRUCTION ABORTED LEAVING R4 INTACT? 
3696 015650 001401 BEQ 1$ YES 
3697 015652 104021 ERROR +21 : INTERRUPT /ABORT TESTS R4& WAS OVERWRITTEN WITH 
3698 ;DATA_INDICATING THAT INSTRUCTION WAS NOT ABORTED 
3699 015654 005705 1$: TST R5 ;DID TRAP OCCUR 
3700 015656 001401 BEQ 2$ :YES, PASS 


370i 015660 104022 , ERROR +22 ; INTERRUPT/ABORT TESTS TRAP DID NOT OCCUR DUE TO ABORT 
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T # 20 = VERIFY TRAP DUE TO CACHE PARITY ABORT 


3702 015662 012737 000000 177746 2$: MOV #0, CACHE 
3703 015670 062737 000007 001100 21$: ADD #7, $TSTNM 
3704 015676 000137 017046 JMP TST30 


; TURN_CA 


SEQUENCE 


CHE ON 
[ADD 7 TO $TSTNM_TO COMPENSATE FOR 7 TESTS SKIPPED 
; JUMP OVER NEXT 7 TESTS = THEY ARE FOR AN 11/24 ONLY 


94 


3717 


015702 


015710 
3718 015716 
3719 015724 
3720 015732 


3744 016076 


wy 11/24/44 UBI MAP 
TEST # 21 = LMA REGISTER PHYSICAL 


0004 
012637 


177736 
17770C 


177734 
177736 
172544 


004000 


172344 
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005779 


172344 
172516 


177572 
177734 


001174 
001174 


005774 
005776 


aDDRESS CHECK 


- SBTTL TEST # 21 = LMA REGISTER PHYSICAL ADDRESS CHECK 


FERRARA ERE REET EERE ERE EREERERREREREHEEEE EY 


PeTEST 21 LMA REGISTER PHYSICAL ADDRESS CHECK 
THE NEXT 7 TESTS ARE EXECUTED ON THE 11/24 ONLY. 


38 

te 

;* 

:* THIS TEST IS TO CHECK OUT THE .MA (LAST MAPPED ADDRESS) REGISTER FOR 
;* PROPER CONTENTS. FIRST, THE PAR AND MAP REGISTERS ARE SET, THEN A 

;* PHYSICAL ap B IS LOADED INTO AN EXPECTED DATA LOCATION. THEN THE 
;* MAP IS_INSURED TO BE ON AND A MEMORY ACCESS IS DONE, USING THE MAP 

;* REGISTER SO THE LMA IS LOADED. THE LMA IS THEN CHECKED FOR CONTAINING 
;* THE PROPER CONTENTS, CALLING AN ERROR IF EXPECTED DATA DID NOT APPEAR. 
** 
§ 


SRE 


i 


121: 

SCOPE 
JSR PC,PRETST :GO SET UP PRETEST DATA 
“WORD TST22,20$,21 :DATA USED BY PRETST 
BIC #B1T0.MMRO [TURN OFF MEMORY MANAGEMENT 
BIC #60,MAR3 [TURN OFF 22=BIT AND MAP RELOCATION 
MOV #20$, EADRES SLOAD EADRES WITH LOWER 16 BITS OF THE PHYSICAL ADDRESS 
CLR EADRES+2 ‘LOAD UPPER 6 BITS WITH PHYSICAL BITS EXPECTED 
MOV #20$+B1T14,RO :MOVE ADDRESS +40000 (TO REFERENCE PAR2) TO RO 
CLR @LREGL [CLEAR LOWEST USEABLE MAP REGISTER LOW WORD 
CLR @LREGU [CLEAR LOWEST USEABLE MAP REGISTER HIGH WORD 
MOV KIPAR2,-(SP) SAVE KIPAR2 
MOV LOWEST.KIPAR2 :PUT PAR VALUE IN PAR2 TO ACCESS LOWEST MAP REGISTER 
BIS #60,MMR3 [TURN ON 22-BIT AND MAP RELOCATION 
CLR KIPARO [CLEAR PARO FOR PAGE ACCESSING THIS TEST 
BIS #81T0,MMRO [TURN ON MEMORY MANAGEMENT 

20$: MOV (RO) .R1 ‘DO THE MAP REGISTER READ THROUGH THE MAP 
CMP EADRES,LMALOW :SEE IF LMA LOWER 16 WERE ubQAdED PROPERLY 
BNE 1$ :BRANCH TO CALL ERROR IF 
MOV LMAHI , $TMPO [MOVE HI 6 BITS TO STMPO oR PREPARATION 
BIC #177700,$TMPO  :CLESR ALL BUT LOWER 6 BITS 
BEQ 3$ [BRANCH AROUND ERROR IF OK 

1$: MOV LMALOW,EADRS2  :MOVE LOWER 16 BITS OF RECEIVED DATA TO EADRS2 FOR ERROR 


MOV LMAHI ,EADRS2+2 MOVE UPPER 6 BITS OF RECEIVED DATA TO EADRS2+2 FOR ERROR 
MOV (SP) +, KIPAR2 sRESTORE KIPAR2 


ERROR +23 LMA NOT LOADED PROPERLY 
BR TST22 ;;BRANCH OVER PAR RESTORATION - NOT NEEDED 
MOV #4000,RO s:MOVE 4000 TO WAIT LOOP COUNTER 
2$: SOB RO,2$ sWAIT A LITTLE arrose HITTING THE RESET IN NEXT TEST 
BR TST22 ; ;BRANCH TO NEXT TEST 
3$: MOV (SP)+,KIPAR2 SRESTORE KIPAR2 
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TEST # 22 = LMA FORCE JUMPER BIT TEST 


3751 .SBTTL TEST # 22 = LMA FORCE JUMPER BIT TEST 
FLARE EE RAR EEARAAAARARKAERAERARERREAEEKRERERRERRRRE 
TeTEST 22 LMA FORCE JUMPER BIT TEST 
**® 
ie THIS TEST DETERMINES THAT THE FORCE JUMPER BIT OF THE LMA IS ZERO AFTER 
ie A SYSTEM RESET. 
** 
Sy RRR RR RR RRA ETRE RARE EERE EERE RARER AER ERE REE RRR RRR EE 
016102 $122: 
016102 000004 SCOPE 
016104 004737 005166 JSR PC PRETST :GO SET UP PRETEST DATA 
016110 016150 016116 000022 .WORD TS123,208,22 DATA USED BY PRETST 
3752 000100 FUBIT  =100 FORCE JUMPER BIT IS BIT 6 
3753 016116 042737 000060 172516 208: BIC #60,MMR3 STURN OFF 22-BIT AND MAP RELOCATION 
3754 016124 000005 RESET TRESET THE WORLD, CLEARING THE FJBIT 
3755 016126 032737 000100 1777. BIT #FJBIT,LMAHI CHECK THE BIT FOR BEING ZERO 
3756 016134 001405 BEG TST23 ;BRANCH TO NEXT TEST IF OK 
3757 016136 013701 177736 MOV LMAHI ,R1 :MOVE LMAHI TO R1 FOR ERROR CAL 
3758 016142 042701 000100 Bit #F JBIT,RI [CLEAR THE BIT THAT SHOULD HAVE BEEN CLEAR 
3759 076146 1046024 ERROR +24 [LMA FORCE JUMPER BIT NOT ZERO 





= sass — - 
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TEST # 23 = SETTING LMA FORCE JUMPER BIT T i 
3769 .SBITL TEST # 23 = SETTING LMA FORCE JUMPER BIT TEST 


3771 O1 
3 


3786 

3787 01 6574 

3788 016302 

3789 016310 
6312 


3800 016350 


000754 
012637 
042737 


177736 
000100 


125252 
200 


000 

001264 
003474 
003474 
001000 


172350 
000060 


177736 


001256 
001260 


172516 
001106 


172350 


162576 


172516 





FL RAAAAAAAAAAAAEAEARAAAEERERARRAERARARARARARERAARARRRERARARERREE 


S*TEST 23 SETTING LMA FORCE JUMPER BIT TEST 


-* 
3* THIS TEST SETS THE FORCE JUMPER BIT AND TESTS ITS oT eett an IF 
:* a JUMPERS ARE NOT IN THEIR DEFAULT STATE. IF_NOT (‘LOWEST 

be est" DO NOT CONTAIN THE DEFAULT VALUES OF 170000. OR 157400." 

be RESPECTIVELY) , THIS TEST INSURES THAT THE PREVIOUSLY DISABLED MAP 
;* 
oe 
§ 


REGISTERS ARE ENABLED WITH THE FJ BIT SET. 


MPP RSBRSSALASASLALESLSSELASS SESE SARS ER ESE R RAR ARRAS ASA AAA RASA SDS SD 


18123: 


SCOPE 
JSR PC,PRETST :GO SET UP PRETEST DATA 
-WORD TST24,20$,23 DATA we BY PRETST 
20$: BIS #F JBIT,LMAHI 7SET THE BIT 
BIT #F JBIT,LMAHI ;SEE IF IT WAS SET 
BNE 1$ BRANCH IF SET 
MOV LMAHI ,R1 ;MOVE LMAHI TO R17 FOR ERROR CAL 
BIS #F JBIT,R1 SET THe BIT THAT SHOULD HAVE BEEN SET 
ERROR +25 ;LMA FORCE JUMPER BIT NOT SET 
1$: CMP #170000,LOWEST ;SEE IF MAP REGISTER O IS LOWEST 
BNE 2s ZBRANCH AROUND UPPER LIMIT CHECK IF NOT 
CMP #177400,HIGEST ;SEE IF MAP REGISTER 31 IS HIGHEST 
BEQ TST24 7;BRANCH TO NEXT TEST IF SO 
2s: BIS #60 ,MMR3 TURN ON 22-BIT AND MAP RELOCATION 
MOV #6$,$LPERR ;RESET LOOP ON ERROR TO 6$ 


MOV KIPAR4 ,~(SP) ;SAVE PAR4 
MOV UBMLOW.KIPAR4  :MOVE LOWEST PAGE OF MEMORY WINDOW TO PAR 


MOV #117776,R0 THIS WILL yo ay TO SELECT PARG, ADDRESS 17776 
MOV #125252,R2 ZL CONSTANT TO R2 
BR 5$ BRANCH OVER Loop SETUP 
4$: ADD #200, ,KIPAR4 ;MAP TO NEXT REGISTER 
CMP UBMHI ,K IPAR4 ;SEE IF HIGHEST HAS BEEN REACHED 
BEQ 9$ BRANCH TO RESTORE PAR4 AND hth TEST IF SO 
5$: JSR PC, TSTLOC ;GO TEST LOCATION FOR WRITEABILIT 
BR 4$ [BRANCH BACK FOR ANOTHER TEST IF LOCATION LOADED 
BR 7$ ;BRANCH AROUND LOOP ON ERROR SETUP 
6$: JSR PC, TSTLOC ;GO TEST LOCATION FOR WRITEABILITY 
; BR 8$ :GO TEST FOR LOOP ON ERROR IF OK NOW 
7$: ERROR +27 [FORCE JUMPER BIT FAILS TO REVERT MAP REGISTER STATUS TO DEF 
8$: BIT #B1T9,aSWR ;SEE IF LOOP ON ERROR IS STILL SET 
BNE 6$ ;BRANCH BACK TO LOOP SECTION IF SO 
BR 4$ [BRANCH BACK FOR ANOTHER TEST 
9$: MOV (SP>+,KIPAR4 RESTORE KIPAR4 


BIC #60 ,.MMR3 
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# 24 = CLEARING THE FORCE JUMPER BIT 


177736 


. SBTTL 


2 RUA AEEAEARERREEREKERERERAEARARAKERARE EERE REEEEEEETERED 


~] 


SEQUENCE 98 


‘aro 


TEST # 24 = CLEARING THE FORCE JUMPER BIT 


;*TEST 24 


CLEARING THE FORCE JUMPER BIT 
THIS TEST CLEARS THE FJ BIT AND INSURES THAT IT IS SUCCESSFULLY CLEARED. 


TRAPS SRSSSSESLELELSESSSSSA RASA EASES SERA ASE AR ARAL ARRAS ARR RASA RASS DDS 


PC ,PRETST 
TST25,208,24 
#F JBIT,LMAHI 
#F JBIT,LMAHI 
TST25 


LMAHI ,R1 
#F JBIT,R1 
+24 


369 SET UP PRETEST DATA 

;DATA USED BY PRETST 

;CLEAR THE BIT 

;CHECK TO SEE THAT IT WAS CLEARED 

7 ;BRANCH IF CLEARED 

:MOVE LMAHI TO Ri FOR ERROR CALL 

;CLEAR THE BIT TKAT SHOULD HAVE BEEN CLEAR 
LMA FORCE JUMPEF BIT NOT ZERO 


a's 11/24/44 UBI MA 
TEST # 25 = LMA CONTROL "aITs TEST = DATI 


3819 


3839 016560 


012637 


00002 
056546 
177736 


177736 
001174 


001000 
172344 
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SEQUENCE 


TEST # 25 = LMA CONTROL BITS TEST = DATI 


.-SBTTL 
s*TEST 25 
59 
3% 
3* 
18125: 
SCOPE 
JSR 
000025 . 
MOV 
172344 MOV 
177572 MOV 
172516 MOV 
MCV 
MUV 
001174 MOV 
001200 MOV 
001200 BIC 
001200 CMP 
BEQ 
BR 
20$: MOV 
001174 MOV 
001200 CMP 
BEQ 
1$: ERROR 
162360 2$: BIT 
BNE 
3$: MOV 


TARR RRSRRRAARSASLASLALAAALAL ALAS ASAR SASSER ASA R ARRAS ARRAS SRDS DS S| 


LMA CONTROL BITS TEST = DATI 


PC ,PRETST 
TST26, 20$, 25 
KIPAR2, =(SP) 


#20,.MMR3 
#1$4BI1T14,RO 
$1MPO, $TMP2 


#37777, $IMP2 
STMPO, $TMP2 


1$ 

(RO) ,R1 
LMAH! , $TMPO 
$TMPO,STMP2 
2$ 

+26 
#BIT9,aSWR 
20$ 
(SP) +, KIPAR2 


#170000, KIPAR2 


:GO SET UP PRETEST DATA 

:DATA USED BY PRETST — 

s SAVE KIPAR2 

;LOAD KIPAR2 

; TURN ON MEMORY MANAGEMENT 

; TURN ON 22-BIT ADDRESSING 

:MOVE LOCATION ADDRESS +40000 (TO REF PAR2) TO RO 


DATI 
:MOVE LMAHI TO ad _ PREPARATION OF EXPECTED 
MOVE IT TO $TMP2 A 
:CLEAR ALL BUT THE NCONTRGL BITS 
7SEE IF EXPECTED DATA CAME UP 
;BRANCH TO FINISH TEST IF ALL CLEAR 
;BRANCH OVER LOOP ON ERROR SETUP 
:DO A DATI 
;MOVE LMAHI TO $TMPO FOR COMPARE 
;SEE IF EXPECTED DATA CAME UP 
[BRANCH AROUND ERROR IF IT DID 
LMA CONTROL BITS INCORRECT 
;SEE IF LOOP ON ERROR IS SET 
BRANCH BACK FOR ANOTHER TRY IF SET 
RESTORE KIPAR2 


8 
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TEST # 26 = LMA CONTROL BITS TEST = DATO 


SEQUENCE 


3846 .SBTTL TEST # 26 = (MA CONTROL BITS TEST - DATO 
LEAR RAR AEE EREEEAAEAAEEEEE RARE AAARARREEEERAEAREREERERERHERERREREE 
i*TEST 26 LMA CONTROL BITS TEST = DATO 
3* 
* by 6 TEST INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLY DOING A 
;* 7 
** 
eeitt iti itittitiiii titi iii iii 
016564 TST26: 
016564 SCOPE 
0165 737 005166 JSR PC,PRETST :GO SET UP PRETEST DATA 
016572 016720 016662 000026 paTo TO 00 TST27,20$,26 DATA USED BY PRETST 
3848 016600 013746 172344 MOV KIPAR2,~(SP) ;SAVE KIPAR2 
01 012737 170000 172344 MOV #170000, KIPAR2 ;LOAD KIPAR2 
3850 016612 012700 056702 MOV #1$+B1T14,R0 MOVE LOCATION ADDRESS +40000 (TO REF PAR2) TO RO 
3851 016616 019110 MOV R1, (RO) :DO0 A DATO 
3852 014620 913737 1777 001174 MOV LMAHI , $TMPO sMOVE LMAHI TO yd - CONTROL BIT ANALYSIS 
3853 16626 013737 001174 001200 MOV STMPO,STMP2 s;MOVE IT IT $TMP2 AL 
2534 01 052737 100000 001200 BIS A#DATO,STMP2 SET AND CLEAR THE ‘CONTROL BITS EXPECTED TO BE SET 
3855 016642 042737 040000 001174 BIC #B1T14,$TMPO SAND CLEAR SO $TMP2 WILL CONTAIN THE EXPECTED 
3856 016650 023737 001174 12 CMP STMPO,$T SEE IF BIT - IS SET AND 14 IS CLEAR 
3857 016656 061416 BEQ 3$ BRANCH IF 
016660 1 BR :GO CALL ERROR 
3859 016662 010110 208: MOV R1, (RO) DG A DATO 
01 013737 177736 001174 MOV LMAHI , $TMPO :MOVE LMA HIGH REGISTER CONTENTS TO $TMPO FOR COMPARE 
3861 016672 023737 001174 001200 CMP $STMPO,STMP2 ;SEE IF EXPECTED CAME UP 
016 001401 BEQ $ BRANCH AROUND ERROR IF IT DID 
3863 016702 10402 1$: ERROR +26 LMA CONTROL BITS INCORRECT 
3864 016704 032777 OF1000 162224 2$: BIT #BIT9,aSWR SEE IF LOOP ON ERROR IS SET 
3865 016712 001363 BNE 20$ BRANCH BACK FOR ANOTHER TRY IF SET 
3866 016714 012637 172344 3$: MOV (SP)+,KIPAR2 RESTORE KIPAR2 





3873 


016720 
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001363 
012637 


005166 
017010 


172344 
170000 
057030 
177736 


177736 
001174 


001000 
172344 


8 
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T # 27 = LMA CONTROL BITS TEST = DATOB 


000027 


172344 


001174 


001200 


001174 
001200 


162076 





.SBTTL TEST # 27 = LMA CONTROL BITS TEST = DATOB 


SEAR RE RARERRE RE EEA EEE EERE REE AEREEE EERE EE EERE EERE EEE 


S*TEST 27 LMA CONTROL BITS TEST = DATOB 


** 
t+ THIS. TEST INSURES THE CONTROL BITS 14 AND 15 LOAD PROPERLY DOING A 
. — ° 
** 
TUBES EERE IIOUIOIIEIIIIISISIISIIIEISISIIOISI SIO ISISOIISOOIDDISISIUITIDIIOICII II It 
TST27: 
SCOPE 
JSR PC,PR :GO SET UP PRETEST pata 
WORD TSt30. Os. 27 ~—« DATA USED BY PRETS 
DATOB =140000 ‘DATOB CONTROL Bits. STATUS=140000 
MOV KIPAR2,-(SP) =: SAVE KIPAR2 
MOV #170000,KIPAR2 :LOAD KIPAR2 
MOV #1$+B1T14,RO :MOVE LOCATION ADDRESS +40000 (TO REF PAR2) TO RO 
MOVB R17, (RO) :DO A DATOB 
MOV LMAHI , $TMPO ‘MOVE LMAHI TO $TMPO FOR CONTROL BIT CHECK 
MOV $TMPO. $TMP2 ‘MOVE TO $TMP2 ALSO 
BIS #DATOB,$TMP2 §:SET THE EXPECTED DATA BITS INTO $TMPO 
CMP $TMPO, $TMP2 ‘SEE IF EXPECTED DATA CAME uP 
BEQ 3$ “BRANCH IF OK 
BR 1$ :BRANCH TO CALL ERROR 
20$:  MOVB  R1,(RO) [DO A DATOB 
MOV LMAKI , $TMPO ‘MOVE LMA HIGH REGISTER CONTENTS TO $TMPO FOR COMPARE 
CMP $TMPO, $TMP2 ‘SEE IF EXPECTED DATA CAMPE UP 
BEQ 2$ SBRANCH IF OK 
1$: ERROR +26 [LMA CONTROL BITS INCORRECT 
2$: BIT #BI1T9,aSwR ‘SEE IF LOOP ON ERROR IS SET 
BNE 20$ ‘BRANCH BACK FOR ANOTHER TRY IF SET 
MOV (SP) +, KIPAR2 RESTORE KIPAR2 


ys edbienaannieasnannaenengusntalalianeseiannnninnhnmanennt 
>>NOTE<<: “DATIP' CANNOT BE CHECKED IN THE 11/24 BECAUSE THE LMA IS 
WRITTEN TWICE WHEN A ‘DATIP* IS EXECUTED, DESTROYING THE 
"DATIP* STATE THAT WAS WRITTEN FIRST. 


SL RRR EERE REE EEE ERE REAR ERE ERE RARE EEE ERE EERE EEE 
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CKKUACO 11/24/44 UBI 
MEMORY ON UNIBUS TESTS HEADER 

3901 .SBTTL MEMORY ON UNIBUS TESTS HEADER 
3902 PLR REE EERERERRERE EERE EERE EERE REE REAEREER RARER ERE RE 
3903 3* 
3904 ;* THE NEXT TWO TESTS WILL EXECUTE IF A ‘1° IN BIT 5 OF THE SWITCH 
3905 3* REGISTER IS FOUND SET. IF IT HAS, IT THEN DETERMINES IF THERE IS ANY 
3906 :* UNIBUS MEMORY = AN ERROR RESULTS IF THERE IS NONE. IF THERE IS MEMORY, 
3907 3* IT —. SIZES THE AMOUNT OF MEMORY ON THE UNIBUS, INFORMS THE USER 
3908 :* HOW MUCH MEMORY IT FOUND ON THE FIRST PASS, THEN SETS AND CLEARS ALL 
3909 * BITS OF ALL LOCATIONS IN THE UNIBUS MEMORY FOUND USING THE ‘MARCH 
ary :* ALGORITHM. 

** 
3912 3* M7098 FOR THE 11/44, M7134 FOR THE 11/24 
Siz 7* JUMPER SETTINGS FOR THE MAP REGISTERS 

** 
3915 * V<<<<<LOWER LIMIT>>>>>V V<<<<UPPER LIMIT>>>>V 
3916 ;* 0 0 0 0 0 
3917 * i ' ' : ' H ' ' H ' 
Peat :* wi2! Wil! wi0! w9: w8! W7! W6! WS! wW4! w3! 

a ‘ ' ' ' : ' ' ' : H 
ease 7* 0 0 0 0 0 0 0 0 0 0 

** 
3922 :*W3-W7 AND W8-W12 ARE THE wer hag: ~— NUMBER LIMIT (UPPER OR Pee. 
3923 :*A JUMPER IN CORRESPONDS TO A LOGIC ‘0°’; A JUMPER OUT TO A LOGIC ‘ 
3924 :*SET THE JUMPERS, DETERMINE cicn, GniBus PAGE THE MEMORY RESIDES In (0 10, 
3925 :*BY CHECKING WHICH OF THE 5 ADDRESS BITS BA17-BA13 ARE ASSERTED. ALL ZER 
3926 t*1S PAGE 0, 10000 IS PAGE 1, 01000 IS PAGE 2, 11000 IS PAGE 3, ETC. UP 10 
3927 :*PAGE 31 (11111). FOR THE MEMORY TO BE DETECTED, IT MUST LIE AT OR ABOVE 
3928 ;*THE LOWER LIMIT JUMPER SETTING AND BELOW THE UPPER LIMIT JUMPER SETTING. 
3929 :*THUS TO HAVE UNIBUS MEMORY IN PAGES 5-9, ONE WOULD SET THE LOWER LIMIT TO 
3930 :*PAGE 5 (10100) OR W10 AND W12 OUT, AND W8, W9 AND W11_IN, AND THE UPPER LIMIT 
3931 7*TO PAGE 10 (01010) OR W4 AND W6 OUT, AND W3, WS AND W7 IN. UNIBUS MEMORY 


3932 zsmusT BE CONTIGUOUS SINCE NO GAPS ARE PERMITTED. 


LEAR RRR REE E EEE AEE EERE REEREREER EERE ERE REE 


102 
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30 - MEMORY ON UNIBUS TEST 


3945 .SBTTL TEST # 30 ~ MEMORY ON UNIBUS TEST 
PARRA EELELALAAAAAALAAAAAAAAAASAAEASA AAAS S REESE SEER REE SSA SS 
T*TEST 30 MEMORY ON UNIBUS TEST 
*® 
te THIS TEST FIRST CHECKS TO SEE IF THE UNIBUS MEMORY TESTS HAVE BEEN 
:* SELECTED. IF — EOP IS EZECUTED. IT THEN CHECKS FOR UNIBUS 
:* MEMORY EXISTENCE BY CHECKING THAT THE CONTENTS OF LOWEST OR HIGHEST 
:* LOCATIONS IS NOT IN ITS DEFAULT STATE. IF BOTH ARE, AN ERROR IS 
:* CALLED AND THE EOP IS EZECUTED. IF EITHER ARE NOT, THE NEXT SECTION 
:* 1S EXECUTED THAT DETERMINES THE SIZE OF THE UB MEMORY AND TELL 
* USER OF THE RESULTS ON THE FIRST PASS ONLY. 
** 
DIA E EEE SSSI ISIS ISOS TOOIIOIIOIITIDIUIOITI I Ii itt 
017046 1ST30: 
7046 SCOPE 
017050 004737 005166 JSR :GO SET UP PRETEST DATA 
017054 017274 017062 000030 WORD TSt3h. OOS. 30 DATA UseD BY PRETST 
017062 042737 000001 177572 20%: BIC OFF MEMORY MANAGEMENT 
3947 017070 032777 000040 162040 BIT wits aSwR ‘See IF THIS TEST HAS BEEN SELECTED 
3948 017076 001425 BEQ 2$ ‘BRANCH TO JUMP IF TEST NOT SELECTED 
3949 017100 012737 021450 001362 MOV WSEOP,NXTTST | :POINT TO” ESCAPE VECTOR 
3950 017106 022737 170000 001256 1S: CMP #170000,LOWEST :SEE IF LOWEST IS LOWEST 
3951 017114 001020 BNE 3$ :GO DO TEST IF IT TSN T - UNIBUS MEMORY EXISTS 
3952 017116 022737 177400 001260 CMP #177400,HIGEST :SEE IF HIGEST IS HIGHEST 
3953 017124 001014 BNE 3$ ‘GO DO TEST IF IT ISN'T - UNIBUS MEMORY EXISTS 
3954 017126 012737 012726 0011 MOV ¥S1ZEJ0, <SLPERR “MOVE SIZE JUMPER ROUTINE TO LOOP ON ERROR 
3955 017134 112737 000007 001100 MOVB = #7, $TSTNM ‘EXECUTING AFTER TEST 7 ON LOOPBACK 
3956 017142 112737 000007 02002 VB so #7. $TESTN SEXECUTING AFTER TEST 7 ON LOOPBACK 
3957 017150 104017 ERROR * Vv :NO UNIBUS MEMORY EXISTS 
3958 017152 (00137 021450 2$: JMP : JUMP TO END OF PASS 
3959 017156 005037 001320 3$: CLR 33 am ‘CLEAR THE ERROR COUNT INDICATOR 
017 005037 00133 CLR PCPUER ‘CLEAR THE ERROR REGISTER RECEIVER 
3961 017166 005037 172516 CLR 3 [CLEAR MEMORY MANAGEMENT REGISTER MMR3 
3962 017172 052737 20 172516 BIS #20,MMR3 *TURN ON 22=BIT MAPPING 
3963 017200 005037 17234C CLR PARO [MAP PARO TO 0-4K 
017204 012737 200 172342 MOV #200, KIPAR1 ‘MAP PAR1 TO 4-8k 
3965 017212 013700 001274 MOV 1,RO ‘MOVE UBRHI TO RO 
3966 017 163700 001272 SUB UBRLOW, RO TSUBTRACT UBRLOW FROM IT, AND 
3967 017222 005200 INC ‘ADD LAST BLOCK OF 4k TO LOOP COUNTER 
3968 017224 010037 001316 MOV RO, NUMOF K SSAVE RO IN NUMOFK 
017 5046 4$: CLR -(§P) SCLEAR THE MAJOR LOOP. INDICATOR ON STACK 
3970 017232 012746 000200 MOV #200,-(SP) *MOVE PAR CHANGE T 
971 017236 013746 001262 MOV Ow.-(SP) | :MOVE STARTING PAR. VALUE TO STACK 
3972 017242 012746 000002 MCV #2,~(SP) “MOVE INCREMENT VALUE TO STACK 
3973 017246 005737 020022 TST $PASS SSEE IF THIS IS FIRST PAS 
3974 017252 001010 BNE TST31 * BRANCH TO NEXT TEST IF NOT 
3975 017254 01004 MOV RO, -(SP) ‘MOVE LOOP COUNTER TO THE STACK AND 
3976 017256 006316 ASL (SP) ‘ROTATE THIS TO THE LEFT 2 PLACES 
3977 017260 006316 ASL (SP) :TO INDICATE NUMBER OF K IN OCTAL 
3978 017262 104401 006131 TYPE §_, UBMAVA 7GO TYPE THE UNI-BUS MEMORY AVAILABLE MESSAGE 
3979 017266 104405 TYPDS :GO TYPE THE NUMBER IN DECIMAL 
3980 017270 104401 006200 TYPE —_ , UBMEND ‘TYPE A ‘' K'' AND <CRLF> 
3981 021450 TST32=$EOP 
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TEST # 31 = USING MARCH ALGORITHM, CHECK UB MEMORY 
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SEQUENCE 104 


-SBTTL TEST # 31 = USING MARCH ALGORITHM, CHECK UB MEMORY 


RRR AERA EERREKHERAEEKERKERERKAREAEEAAEREEREREEHKEEE 


USING MARCH ALGORITHM, CHECK UB MEMORY 


THIS TEST LOADS PATTERN 125252 INTO ALL LOCATIONS IN UB MEMORY, 


THEN 


USING THE MARCH ALGORITHM, CHECKS THE MEMORY 


3988 
;STEST 31 
. 
3* 
:* 
017274 18131 
017274 SCOPE 
017276 004737 005166 JSR 
017302 021450 017412 000031 . WORD 
3989 017310 012704 125252 MOV 
3990 017314 012705 052525 MOV 
3991 017320 013737 001262 172354 1S: MOV 
3992 017326 013700 001316 MoV 
3993 017332 052737 1 177572 BIS 
017340 012702 010000 2$ MOV 
3995 017344 012703 140000 MOV 
3996 017350 010423 3$ MOV 
3997 017352 077202 SOB 
3998 017354 062737 000200 172354 ADD 
3999 017362 077012 ‘ SOB 
017 16637 000002 172354 MOV 
4001 017372 010100 MOV 
4002 017374 012702 010000 4$ MOV 
4003 017400 012703 140000 MOV 
4004 0174 03 ADD 
4005 017410 01 BR 
4006 017412 010413 208: MOV 
4007 017414 020413 5$: cMP 
4008 017416 001403 BEQ 
4009 017420 010437 001204 MOV 
4010 017424 05 BR 
4011 017426 005113 6$ COM 
4012 017430 020513 CMP 
4013 017432 00141 BEQ 
4014 017434 010537 001204 MOV 
4015 017440 011337 001206 7$ MOV 
4016 017444 005737 001330 TST 
4017 017450 001010 BNE 
018 017452 010337 005770 MOV 
4019 017456 104 8$ ERROR 
4020 017460 BR 
4021 017462 005237 001110 9S: INC 
4022 017466 005037 001330 10$: CLR 
4023 017472 06160 11$: ADD 
4024 017474 077231 SOB 
4025 017476 000004 172354 ADD 
4026 017504 077045 SOB 
4027 017506 005766 000006 (ST 
4028 017512 001404 BEQ 
4029 017514 062706 ee ADD 
4030 017520 000137 021450 JMP 
4031 017526 012766 017776 000006 128: MoV 
4032 017532 012766 177600 000004 MOV 
4033 017540 013766 001264 000002 MOV 


PC,PRETST 
TST32,20$, 31 
#125252,R4 
#52525,R5 
UBML OW. KIPAR6 
NUMOF K .RO 
#10000,R2 
#140000 ,R3 
R4, (R3)+ 
R2.3$ 

#200, KIPAR6 
2(SP) ,KIPAR6 
R1_R 
#10000,R2 
#140000,R3 
6(SP) ,R3 


5$ 
R4,(R3) 
Bee (R3) 


R4,$TMP4 
7$ 


(R3) 
RS, (R3) 
R5,$TMP4 
(R3) , $TMPS 
PCPUEP 


11$ 
R3,EADRES 


+206 
: 


R2, 

4(SP) ,KIPAR6 
RO,4$ 

6(SP) 

12$ 

#10,SP 

$EOP 

#) ko tt oe 


#-200,4 
UBMHI , 3¢ ep 


REAR EAR EERE AREEEREREREERREKEEEEEKEEE 


3;GO SET UP PRETEST DATA 

;DATA USED BY PRETST 

;MOVE FIRST TEST PATTERN TO R4 
MOVE SECOND eaha PATTERN TO R5 


INITIALIZE, P 
RE INITIALIZE LOOP COUNTER RO 
; TURN ON MEMORY MANAGEMENT 


ZACCESS ALL WORDS IN pes 4K BLOCK 
sFIRST + gt OF THIS PAGE 

HE PATTERN TO THE LOCATION 
AND BRANCH IF 4K NOT DONE 


T 1_AND BRANCH IF BLOCKS OF 4K NOT DONE 
SREINITIALIZE KIPAR6 TO POINT AT BEGINNING 
:REINITIALIZE LOOP COUNTER RO 

ACCESS ALL WORDS IN THIS 4K BLOCK 
SFIRST ADDRESS OF THIS ~ 
ZADD OFFSET FOR THIS MAJOR PASS 

CH OVER LOOP ON ERROR PREPARATION 
“REWRITE 1ST PATTERN TO LOCATION FOR LOOP ON ERROR 
SEE IF IT WAS LOADED PROPERLY 
CH AROUND ERROR CALL mY OK 

“MOVE EXPECTED DATA TO $TMP: 
;GO COMPLETE DATA FETCHING AND CALL _ERR 
; COMPLEMENT THAT LOCATION TO PRODUCE SECOND TEST PATTERN 
7SEE IF IT IS THE COMPLEMENT 
BRANCH AROUND ERROR CALL IF IT IS 
SMOVE EXPECTED DATA TO $TMP4 
SMOVE RECEIVED DATA TO $TMPS 
: SEE IF THIS ACCESS TIMED OUT - IF IT DID, BRANCH 

OUND ERROR CALLS - TIMEOUT ROUTINE LOGGED ERROR 
“MOVE ADDRESS IN R3 TO EADRES FOR ERROR CALL 
;DATA PATTERN NOT CORRECT 
NCR ro INSTRUCTIONS 


; I 
;ADD_INCREMENT/DECREMENT VALUE TO R3 
mee RACT 1 AND BRANCH IF 4K NOT CHECKED 
MAP TO NEXT 4K BLOCK 
“BRANCH BACK IF MORE BLOCKS TO CHECK 
: TEST ial SEE IF THIS IS SECOND PASS 
ZBRANCH TO 2ND PASS SETUP IF NOT 
; CLEAN ry STACK 


; JUMP TO END OF a? 

MOVE 2K WORDS =2 (ALSO 2ND wy INDICATOR) TO STACK 
;MOVE REVERSE PAR STEP. TO STA 

:MOVE LAST PAR VALUE 10 STACK 





es wy 11/24/44 UBI MAP 
TEST # 31 = USING MARCH ALGORITHM, CHECK UB ME 


4034 017546 012716 177776 MOV #=2, (SP) 
4035 017552 000662 BR 1$ 
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;MOVE DECREMENT VALUE TO STACK 
;BRANCH BACK FOR SECOND PASS 


SEQUENCE 


105 





SEQUENCE 106 


CKKUACO 11/24/44 UBI MAP 
SUBROUTINE TO TEST TIMEOUT THROUGH UNI 


4036 .SBTTL SUBROUTINE TO TEST TIMEOUT THROUGH UNIBUS MAP 
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Py REE EEEEEEKEEEEAEREEERAEAEREREREERAAERAERARREREREE 


4037 
4038 017554 


005737 004312 MMTOTM: TST LOEFLG +SEE IF ge _— IS FROM ERROR LOOPING 
4039 017560 001402 BEQ 1$ CH_IF 
4040 017 2706 000002 ADD #2,SP CLEAN EXTRA RETURN OFF STACK 
4041 017 5037 001320 1$: CLR ERRCNT 7CLEAR ERRCNT FOR THIS TEST 
4042 017572 013737 001256 172350 MOV LOWEST,KIPAR4 LOAD PAR 4 WITH LOWEST USABLE MAP REG 
017 012777 74 161474 MOV #74 ,ALREGU ;LOAD UPPER 6 BITS OF LOWEST MAP REG 
4 017 5077 161466 CLR @LREGL zl LOWER 16 BITS OF LOWEST MAP REG 
4045 017612 032777 161316 BIT #B1T11,aSWR 7 SEE 1F AN 11/24 WITH UB MEMORY ONLY 
017 1403 BEQ 20 BRANCH IF NOT 
4047 017622 012737 177600 172350 MOV #177600,KIPAR4 ;RESET KIPAR4 SO A TIMEOUT THROUGH MAP CAN BE EXPECTED 
4048 017630 005037 001330 208: CLR PCPUER CPU ERROR REGISTER LOCATION 
4049 017634 012737 20 001326 MOV #TIMOUT , CPUEXP EXPECTING TIMEOUT IN THIS TEST 
4050 017642 013703 100000 ‘ MOV 100000,R3 TRY TO READ THROUGH PAGE 4 THIS A ge WILL GO OUT 
4051 ;ON THE UNIBUS TO SELECT THE LOwEST USABLE MAP REGISTER (DEFAULT REG. 0). PHYSICAL 
4052 ZADDRESS 17700000 IS THEN GENERATED, WHICH SHOULD TIME OUT SINCE ae IS fHE FIRST 
4053 {NON-EXISTENT LOCAT iy 
4054 017646 005037 001326 CLR CPUEXP ;CLEAR LOCATION - NO MORE TIMEOUTS FOR A WHILE 
4055 017652 022737 000020 001330 CMP #TIMOUT ,PCPUER 3 THE UNIBUS SHOULD HAVE TIMED OUT 
4056 017660 001405 BEQ CH IF CONDITION WAS CORRECT 
4057 017662 011646 2$: MOV (SP) ,~(SP) [PUSH ANOTHER RETURN ONTO THE STACK FOR POSSIBLE ERROR LOOP 
4058 017664 012737 000001 004312 MOV #1,LOEFLG ;SET ERROR LOOP FLAG 
4059 017672 000207 RTS PC EXIT 
4060 017674 062716 000002 3$: ADD #2,(SP) ; CORRECT RETURN PC OVER ERROR CALL 
4061 017700 000207 RTS PC sEXIT 


CKKUACO 11/24/44 UBI MAP 
SUBROUTINE TO TEST TIMEOUT THROUGH UNIBUS 


4062 
4063 
4064 
4065 
4066 


020000 


177777 
177777 
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ADDWO= 
ADDW1= 
- SBTTL 


-=20000 


177777 
177777 


THE APT TABLES NEED TO START AT 20000 = THIS STATEMENT DOES THAT 


APT PARAMETER BLOCK 


FL ERRRRRA RARER ERE RERERRE EERE RERERERRREREREREEKREEEEREERRERERE 


;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 


FLERE ERE EEEEEREERREEKEEEREREEEEERERERERERERRERRE 


. $X=. 
4 


cor CURRENT LOCATION 
T POWER FAIL TO POINT TO START OF PROGRAM 
: FOR APT START UP 
:sPOINT TO APT INDIRECT — PNTR. 
sPOINT TO APT HEADER BLOCK 
S TRESET LOCATION COUNTER 


PTTTITTITICILITITT TLE LETT LEE LLL 


APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 


: SETUP 
; INTERFACE SPEC. 
SAPTHD : 
$HIBTS: .WORD 
DR: .WORD 
$TSTM: .WORD 
SPASTM: .WORD 
SUNITM: .WORD 
. WORD 


0 3;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

$MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

5 ;;RUN TIM OF LONGEST TEST 

10 ; 7 RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

0 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
SETEND-$MAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 


a 


a 
i 
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APT MAILBOX-E TABLE 
4068 -SBTTL APT MAILBOX-ETABLE 
FLARE RAEER AERA EAE ERERERRAREREREERAEEEREREEEREREEEREE RE 
.EVEN 
020014 SMAIL: ;;APT MAILBOX 
020014 000000 SMSGTY: .WORD AMSGTY ;;MESSAGE TYPE CODE 
020016 000000 SFATAL: .WORD AFATAL ;;FATAL ERROR NUMBER 
000000 STESTN: .WORD ATESTN ;;TEST NUMBER 
020022 000000 SPASS: .WORD APASS = ;;PASS COUNT 
000000 $DEVCT: .WORD ADEVCT ;;DEVICE COUNT 
020026 000000 UNI -WORD AUNIT ;;1/0 UNIT NUMBER 
2 006000 SMSGAD: .WORD AMSGAD ;;MESSAGE ADDRESS 
020032 000000 SMSGLG: .WORD AMSGLG ;;MESSAGE LENGTH 
2 SETABLE: 2 3APT IRONMENT TABLE 
020034 000 ENV: .BYTE AENV : 7 ENVIRONMENT BYTE 
020035 000 SENVM: .BYTE  AENVM sENVIRONMENT MODE BITS 
020036 000000 SSWREG: .WORD ASWREG ;;:APT SWITCH REGISTER 
020040 000000 $SUSWR: .WORD AUSWR sUSER_ SWITCHES 
020042 000000 $CPUOP: .WORD ACPUOP ;;CPU Nay Fad 
ge BITS boat fy 


> 11706201. "15 /05= 02,11/20=03,11/40=04,11/45=05 
7° 11/70=06.PDQ=07 ,0=10 

:* BIT 10=REAL TIME CLOCK 

:* BIT 9=FLOATING POINT PROCESSOR 

® BIT 8=MEMORY MANAGEMENT 


020044 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS,.M.S. BYTE 
020045 000 $MTYP1: .BYTE AMTYP1 ;;MEM. TYPE,BLKA1 
3* MEM.TYPE BYTE -- (HIGH BYTE) 
3* 900 NSEC CORE=001 
s* 300 NSEC BIPOLAR=002 
3* 500 NS MOS= 
020046 000000 $MADR1: .WORD AMADR1 ;;:HIGH ADDRESS,BLKA1 
2* MEM.LAST ADDR. =3 git se THIS WORD AND LOW OF ‘‘TYPE'’ ABOVE 
020050 $MAMS2: .BYTE AMAMS2 ;;HIGH ADDRESS.M.S. BYTE 
020051 000 SMTYP2: .BYTE AMTYP2 ;;MEM.TYPE, BLK#2 
020052 000000 SMADR2: .WORD AMADR2 ;;MEM.LAST ADDRESS,BLKA2 
020054 000 SMAMS3: .BYTE AMAMS3 ;;HIGH ADDRESS,M.S.BYTE 
020055 000 SMTYP3: .BYTE AMTYP3 ;;:MEM.TYPE /BLKA3 
020056 000000 SMADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS, BLK&3 
020060 000 SMAMS4: .BYTE AMAMS4 ;;HIGH ADDRESS,M.S.BYTE 
020061 000 SMTYP4: .BYTE AMTYP4 : 7 MEM. TYPE ,BLKA4 
020062 000000 SMADR4: .WORD AMADR4 7MEM.LAST ADDRESS ,BLKA4 
020064 000000 $VECT1: .WORD AVECT1 +: INTERRUPT VECTORA1 -BUS PRIORITYA1 
020066 000000 $VECT2: .WORD AVECT2 :: INTERRUPT VECTORA2BUS PRIORITY#2 
020070 000000 $BASE: .WORD ABASE 3;BASE ADDRESS OF EQUIPMENT UNDER TEST 
020072 000000 SDEVM: .WORD ADEVM ;;DEVICE MAP 
020074 000000 $CDW1: .WORD ACDW1 7: CONTROLLER DESCRIPTION WORDA1 
020076 $CDW2: .WORD ACDW2 7: CONTROLLER DESCRIPTION WORD#2 
020100 177777 $DDWO: .WORD ADDWO ;;DEVICE DESCRIPTOR WORD#O 
020102 177777 $DDW1: .WORD ADDW1 ;;DEVICE DESCRIPTOR WORDA1 
020104 $DDW2: .WORD ADDW2 ;;DEVICE DESCRIPTOR WORD#2 
020106 000000 $DDW3: .WORD ADDW3 7:DEVICE DESCRIPTOR WORD#3 
020110 SDDW4: .WORD ADDW4 ;;DEVICE DESCRIPTOR WORD#4 
020112 000000 $DDW5: .WORD ADDW5 ;:DEVICE DESCRIPTOR WORDS 
020114 SDDW6: .WORD ADDW6 7:DEVICE DESCRIPTOR WORD46 
020116 sisal $DDW7: .WORD ADDW7 ;;:DEVICE DESCRIPTOR WORD#7 


0 $DDW8: .WORD ADDW8 ;;DEVICE DESCRIPTOR WORD#8 
020122 000000 $DDW9: .WORD ADDW9 ;;DEVICE DESCRIPTOR WORDA9 
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APT MAILBOX~E TABLE 
020124 000000 $DDW10: .WwORD ADDW10 ;;DEVICE DESCRIPTOR WORD#10 
Rsb 168 000000 $DDW11: .WORD ADDW11 ;;DEVICE DESCRIPTOR WORDA#11 
0201 000000 $DDW12: .WwORD ADDWI2 is VICE DESCRIPTOR WORD#12 


: : : V 
020134 000000 $DDW14: .WORD ADDW14 + DEVICE DESCRIPTOR WORDA14 
: .WORD ADDW15 ;;DEVICE DESCRIPTOR WORDA15 
020140 SETEND: 





ere ee a 


CKKUACO 11/24/44 UBI MAP 
SCOPE HANDLER ROUTINE 


4070 


020140 


0 

020242 
020244 
020246 


020366 
020370 
020376 


000416 


001360 


000340 
001100 
177766 
000001 


000001 


001101 
001101 


001113 
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001242 


160674 


000004 


160626 


020552 
020552 


177766 


001101 


.-SBTTL SCOPE HANDLER ROUTINE 


RRR A AEE EAE EEE EEE REE REAR ERE REE REE 
SSTHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
[*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
[*AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 

:*THE SWITCH oe Se usy BY THIS ROUTINE ARE: 


>*SW14=1 ON 
3*SW11=1 INHIBIT ITERATIONS 
3 *SWO9=1 LOOP ON ERROR 
3 *SWO8=1 LOOP ON TEST IN SWR<4:0> 
3 *CALL 
y* SCOPE 3 ;SCOPE=I0T 
$SCOPE: 
CLR RETRY ;CLEAR RETRY FLAG AN THE START OF EACH TEST 
CLR ERRCNT [CLEAR THE MULTIPLE ERROR COUNTER 
CLR DATAOR [LOCATION FOR LOGICAL OR OF BAD DATA 
CLR ADDROR ;LOCATION FOR LOGICAL OR OF ADDRESS 
CLR ADDROR+2 ;LOCATION FOR UPPER 6 BITS OF LOGICAL OR OF ADDRESS 
CLR PATTOR ;LOCATION FOR LOGICAL OR OF PATTERN LOADED 
MOV #-1,DATAND ;LOCATION FOR LOGICAL AND OF BAD DATA 
MOV 4-1 ,ADRAND ;LOCATION FOR LOGICAL AND OF ADDRESS 
MOV #77 ,ADRAND+2 aerate FOR UPPER 6 BITS OF LOGICAL AND OF ADDRESS 
MOV #~-1,PATAND LOCATION FOR LOGICAL AND OF PATTERN LOADED 


MOV #77 ,EADRES+2 {RESTORE UPPER 6 BIT LOCATION OF EADRES+2 
MOV #77 ,EADRS2+2 :RESTORE UPPER 6 BIT LOCATION OF EADRS2+2 
1$: BIT #B1T14,aSWR ;;LOOP ON PRESENT TEST? 
BNE SOVER YES IF SW14=1 
;AAAAASTART OF CODE FOR THE XOR TESTERMAWHE 
$XTSTR: BR 6$ 21F RUNNING ON THE "‘XOR'* TESTER CHANGE 
SI THIS INSTRUCTION TO A ‘'NOP"' (NOP=240) 
MOV @#ERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VECTOR 
MOV ies 23SET FOR TIMEOUT 


TST OUT XOR? 
MOV (SP) +, @M#ERRVEC ; ;RESTORE THE ERROR VECTOR 
BR $SVLAD :GO TO THE NEXT TEST 
5$: CMP (SP) +, (SP) + 7:CLEAR THE STACK AFTER A TIME OUT 
MOV (SP) +, @#ERRVEC : 2RESTORE THE ERROR VECTOR 


BR 7 LOOP ON THE PRESENT TEST 
6$:;MHAAHEND OF CODE FOR THE XOR’ TESTERMAMAA 
BIT e T08 ,aSWR ::LOOP ON SPEC. TEST? 


:BR_IF NO 
MOV @SWR,- (SP) 7:SET DESIRED TEST NUM. FROM SWR 
BIC H#SSWRMK , (SP) + STRIP AWAY UNDESIRED BITS 
CMPB (SP)+,$TSTNM ON THE RIGHT TEST? 
BEQ SOVER :;BR_IF YES 
2$: MOV 177766,CPSAVE ;MOVE mY ERR REG VALUE TO LOC FOR TST ;DPMOQ1 
BIT MBITOO,CPSAVE ;SEE IF THE POWER MONITOR BIT IS ON :DPM001 
BEQ 2000$ BRANCH TO CONTINUE ROUTINE IF CLEAR :DPMO001 
BIC #B1T00,177766 ;CLEAR THE BIT FOUND TO BE SET :DPMO01 
EMT +177 CALL SPECIAL _ FAIL BIT ERROR CALL ;DPMO001 
CLRB SERFLG CLEAR THE ERROR FLAG :DPMO001 
2000$: ity SERFLG 2 sHAS “gee OCCURRED? 


3$ I 
CMPB SERMAX , SERFLG SOMAX. ERRORS FOR THIS TEST OCCURRED? 
BH] 3$ ;;BR IF NO 


-—_—_——___----------— ——----- > -- 
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SCOPE HANDLER ROUTINE 
020400 032777 001000 160530 BIT #B1T09,aSwWR ;;LOOP ON ERROR? 
020406 001404 BEQ & ;3BR_IF NO 
020410 013737 001106 001104 7S: MOV SLPERR,SLPADR ;;SET LOOP ADDRESS TO LAST SCOPE 
020416 000446 BR SOVER 
020420 105037 001101 4$: CLRB SERFLG 2 ZERO THE ERROR FLAG 
020424 005037 001212 CLR STIMES CLEAR THE NUMBER OF _— TO MAKE 
020430 000415 BR 1$ TIESCAPE TO THE NEXT TEST 
020432 032777 004000 160476 3$: BIT #81711,aSWR 53 eteeee ITERATIONS? 
020440 001011 BNE 1$ YES 
020442 005737 020022 TST $PASS iiIF FIRST PASS OF PROGRAM 
020446 001406 BEQ 1$ INHIBIT ITERATIONS 
020450 005237 001102 INC SICNT S INCREMENT ITERATION COUNT 
020454 023737 001212 001102 CMP $TIMES,SICNT 33 CHECK THE NUMBER OF ITERATIONS MADE 
020462 002024 BGE SOVER ;BR IF MORE ITERATION REQUIRED 
020464 012737 000001 001102 1$: MOV #1,$1CNT SZREINITIALIZE THE ITERATION COUNTER 
020472 013737 020550 001212 MOV SMXCNT,STIMES ;;SET NUMBER OF ITERATIONS TO DO 
020500 105237 001100 $SVLAD: INCB STSTNM ;;COUNT TEST NUMBERS 
20504 113737 001100 020020 MOVB STSTNM,STESTN ;;SET TEST NUMBER IN APT MAILBOX 
020512 011637 001104 MOV (SP) ,$LPADR 3:SAVE SCOPE LOOP ADDRESS 
020516 011637 001106 MOV (SP) , SLPERR +: ERROR LOOP ADDRESS 
020522 005037 001214 CLR SESCAPE ;CLEAR THE ESCAPE FROM ERROR ADDRESS 
020526 112737 000001 001113 MOVB #1, SERMAX ZONLY ALLOW ONE(1) ERROR ON NEXT TEST 
0534 013777 001100 160376 S$OVER: MOV $TSTNM,@DISPLAY {DISPLAY TEST NUMBER 
020542 013716 001104 MOV $LPADR, (SP) UDGE RETURN ADDRESS 
020546 000002 RTI FIXES PS 
020550 000002 SMXCNT: 2 “MAX. NUMBER OF ITERATIONS 


020552 000000 CPSAVE: .WORD 0 : LOCATION TO SAVE CPU ERR REG CONTENTS ;DPMOO1 
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ERROR HANDLER ROUTINE 
4072 -SBTTL ERROR HANDLER ROUTINE 


DDE OIIIE OI ISIIIIISIIIIIOIIIIUIIDIOU DE En tnt ntti niin 
;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
7*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO ERTYPE ON ERROR 

is THE SWITCH ody S on bate BY THIS ROUTINE ARE: 


:*S 
+ *SW13=7 WNHIBST ERROR TYPEOUTS 
‘ *SW10=1 BELL ON ERROR 
; #WO9=1 LOOP ON ERROR 
3* L 
* ERROR N ;:ERROR=EMT AND N=ERROR ITEM NUMBER 
020554 000000 IBSAVE: .WORD 0 ;LOC’N TO HOLD $ITEMB DURING DUAL ERR ;PMOO1 
020556 105037 020554 SERROR: CLRB —«sIBSAVE ‘CLEAR THE ITEM BYTE SAVE LOCATION : DPMOOT 
020562 113737 001100 020020 MOVB  $TSTNM,$TESTN SAVE TEST NUMBER FOR ERROR TYPE OUT 
020570 005237 001320 INC ERRCNT ; COUNT ALL MULTIPLE ERRORS 
020574 010037 001160 MOV RO, $REGO ‘SAVE RO FOR POSSIBLE TYPE OUT 
010137 001162 MOV R1.$REG1 ‘SAVE Ri FOR POSSIBLE TYPE OUT 
04 010237 001164 MOV R2.$REG2 ‘SAVE R2 FOR POSSIBLE TYPE OUT 
020610 010337 001166 MOV R3.$REG3 :SAVE R3 FOR POSSIBLE TYPE OUT 
020614 010437 001170 MOV R4.$REG4 TSAVE R4 FOR POSSIBLE TYPE OUT 
0 010537 001172 MOV R5.$REGS5 SSAVE RS FOR POSSIBLE TYPE OUT 
020624 105237 001101 7$: INCB —«- SERFLG i3SET THE ERROR FLAG 
30 001775 BEQ 7$ DON'T LET THE FLAG GO TO ZERO 
020632 013777 001100 160300 MOV $TSTNM, a@D1SPLAY : :DISPLAY TEST NUMBER AND ERROR FLAG 
020640 032777 002000 160270 BIT #B1T10.aSWR ‘BELL ON ERROR? 
620646 001402 BEQ 1$ ::NO - SKIP 
020650 104401 001216 TYPE ,$BELL t=RING BELL 
020654 005237 001110 1$: INC $ERTTL *:COUNT THE NUMBER OF ERRORS 
02 011637 001114 MOV gt —* ::GET ADDRESS OF ERROR INSTRUCTION 
020664 162737 2 001114 SUB RRP 
020672 117737 160216 001112 MOVB SSERRPC, $ITEMB ;;STRIP AND SAVE THE ERROR :TEM CODE 
020700 122737 900177 001112 CMPB ss #177, SITEMB ‘SEE IF THIS IS THE POWER FAIL CALL :DPMO01 
020706 001426 BEQ 2001$ ‘BRANCH AROUND ROUTINE IF IT IS DPMOO1 
020710 105737 020554 TSTB —s«IBSAVE ‘SEE IF THIS IS THE 2ND ERROR CALL = DPMOO1 
020714 001021 BNE 2000$ ‘BRANCH IF SO :DPMOO1 
020716 013737 177766 020552 MOV 177766,CPSAVE :MOVE CPU ERR REG TO CPSAVE FOR TEST =: DPMOO1 
020724 032737 000001 020552 BIT WBITOO.CPSAVE :SEE IF POWER MONITOR BIT IS SET [DPMOO1 
020732 001414 BEQ 2001$ “BRANCH IF OK :DPMOO1 
020734 042737 000001 177766 BIC #B1T00,177766  :CLEAR THE BIT FOUND SET = DPMOO1 
020742 113737 001112 020554 MOVB  $ITEMB.IBSAVE :MAKE IBSAVE NON-ZERO FOR DUAL CALL = DPMOO1 
020750 112737 000177 001112 MOVB  #177,$ITEMB *SET SITEMB TO SPECIAL POWER FAIL PNTR :DPMOO1 
020756 000402 BR 2001$ ‘BRANCH OVER IBSAVE CLEARING :DPMOO1 
920760 105037 020554 20008: CLRB —s«IBSAVE ‘CLEAR IBSAVE SO AFTER 2ND ERROR, EXIT :DPMOO1 
020744 032777 020000 160144 BIT #B1T13,aSWR ::SKIP TYPEOUT IF SET 
020772 001004 BNE 20$ SKIP TYPEOUTS 
020774 004737 002026 JSR PC, ERTYPE ::GO TO USER ERROR ROUTINE 
021000 104401 001223 TYPE =, $CRLF 
021004 208: 
021004 122737 000001 020034 CMPB #APTENV,SENV —s; RUNNING IN APT MODE 
021012 001007 BNE 2$ ‘=NO,SKIP APT ERROR REPORT 
021014 113737 001112 021026 MOVB  $1TEMB,21$ +:SET ITEM NUMBER AS ERROR NUMBER 
021022 004737 021220 JSR PC,SATY4 : REPORT FATAL ERROR TO APT 
021026 000 21$: ‘BYTE 0 





~ 


— 


a 


CKKUACO 11/24/44 UBI MAP 
HANDLE 





ERROR R ROUTINE 
021027 000 BYTE 
021030 000777 22%: BR 
021032 105737 020554 es: TSTB 
021036 001004 BNE 
021040 005777 160072 TST 
021044 100001 BPL 
21046 000000 HALT 
021050 032777 001000 160060 3$: BIT 
021056 001405 BEQ 
021060 105737 020554 TSTB 
021064 001257 BNE 
1066 013716 001106 MOV 
021072 005737 001214 4$: TST 
021076 001405 BEQ 
021100 105737 020554 TSTB 
021104 001247 BNE 
021106 013716 001214 MOV 
021112 5$: 
021112 022737 021676 000042 CMP 
021120 001001 BNE 
021122 000000 HALT 
021124 6$: 
021124 105737 020554 TSTB 
021130 001235 BNE 
021132 032777 001000 157776 BIT 
021140 001417 BEQ 
021142 012737 177777 177766 MOV 
021150 042737 177776 177572 BIC 
021156 012737 177777 003032 MOV 
021164 012737 177777 003224 MOV 
021172 012737 177777 003374 


MOV 
1000$: RTI 
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228 
IBSAVE 
3$ 


@SWR 
3$ 


#831T09,aSWR 
4$ 

IBSAVE 

7$ 

SLPERR, (SP) 
$ESCAPE 
IBSAVE 

7$ 
SESCAPE , (SP) 
AMSENDAD ,a442 
6$ 


IBSAVE 
7 


#-1,TOFLAG 
#-1,CPFLAG 
4-1 ,MMFLAG 


SEQUENCE 113 
;;APT ERROR LOOP 
‘SEE IF POWER FAIL ERROR CALL :DPMOO1 
‘BRANCH IF NOT = HALT NOT ALLOWED *DPMOO1 
‘HALT ON ERROR 
3; SKIP IF CONTINUE 
::HALT ON ERROR! 
::LOOP ON ERROR SWITCH SET? 
‘SEE IF THIS IS THE PWR MNTR BIT ERROR ;DPMOO1 


;BRANCH BACK IF SO - FUDGING NOT ALLOWED;DPMO01 
33FUDGE RETURN FOR LOOPING 

3;CHECK FOR AN ESCAPE ADDRESS 

; IF NONE 


7SEE IF THIS IS THE PWR MNTR BIT ERROR  ;DPMO01 
;BRANCH BACK IF SO = FUDGING NOT ALLOWED;DPMO01 
7;FUDGE RETURN ADDRESS FOR ESCAPE 


3sACT=-11 AUTO-ACCEPT? 
ae CH IF NO 


se YES 


7SEE IF THIS IS THE PWR FAIL ERROR CALL ;DPMOO1 
;BRANCH BACK TO CALL ORIGINAL ERR IF SO ;DPMOO01 
ARE WE LOOPING ON THIS ERROR? 

;BRANCH IF NOT 

;CLEAR CPU ERROR REGISTER 

;CLEAR MEMORY MANAGEMENT STATUS REGISTER 
INITIALIZE TRAP FLAG 

INITIALIZE CP TRAP FLAG 

; INITIALIZE MEMORY MANAGEMENT TRAP FLAG 
;RETURN TO TEST 





eg 11/24/44 UBI MAP 


T COMMUNICATIONS ROUTINE 


4074 


021202 


021446 


000001 
000001 
000001 


021444 
000001 
000100 


000002 
020014 
020030 


020030 


020032 
000004 


000004 
000002 
177776 
022052 
021446 
020034 
020014 


021444 
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021446 
021444 


021446 


020034 
020035 


000004 


020014 


021356 
000004 


020016 
000004 


SEQUENCE 


. SBTTL APT COMMUNICATIONS ROUTINE 


TOR SSSSSESELLSLELES SESSLER SE PS ERE R RSE R ERR RS RR RRR RARER RRS RSA SSS 


SATY1: MOVB 
$ATY3: MOVB 


B 
$S$ATY4: MOVB 
$ATYC: 


1$: TST 


2s: TSTB 


12$: CLRB 


SMFLG: .BYTE 
SLFLG: .BYTE 
SFFLG: .BYTE 


EVEN 
APTSIZE= 300 


APTCSUP= 040 


#1,$FFLG 
#1, + th 


S$ATY 

Hi I SFFLG 
RO,-(SP) 
R1,-(SP) 
$MFLG 

5$ 

cali ae 
MAPTSPOOL , SENVM 
a4(SP) ,RO 
#2,4(SP) 
oo 


1 
RO, $MSGAD 
(RO) + 


2s 
$MSGAD , RO 
RO 


RO, $MSGLGT 
+ Nalanda 


a4 (SP) ,4$ 
#2,4(SP) 
177776, -(SP) 
BC, STYPE 


$FFLG 
1 


11 

@4(SP) ,SFATAL 
#2,4(SP) 
SMSGTYPE 
SFFLG 

SLFLG 

SMFLG 
(SP)+,R1 
(SP)+,RO 

PC 


0 
0 
0 


3;TO REPORT FATAL ERROR 
33TO TYPE A MESSAGE 


3;TO ONLY REPORT FATAL ERROR 


3;PUSH RO ON Spy 
;=PUSH R1_ON STACK 
+ ¢ SHOULD ys A MESSAGE? 


: IF NOT: 
: :OPERATING UNDER APT? 
:IF NOT: BR 
: SHOULD SPOOL MESSAGES? 
NOT: BR 


GET MESSAGE ADDR. 
;;BUMP RETURN ADDR. 
73 SEE IF DONE W/ LAST XMISSION? 
31F NOT: WAIT 
::PUT ADDR IN MAILBOX 
i33FIND END OF MESSAGE 


7;SUB START OF MESSAGE 

3:GET MESSAGE LNGTH IN WORDS 
33PUT LENGTH IN MAILBOX 
7zTELL APT TO TAKE MSG. 


::PUT MSG ADDR IN JSR LINKAGE 
“BUMP RETURN ADDRESS 

PUSH 199776 ON STACK 

‘CALL TYPE MACRO 


2 ¢ SHOULD» REPORT FATAL ERROR? 
:IF NOT: BR 
: ; J RUNNING UNDER APT? 
NOT: BR 
2 FINISHED LAST MESSAGE? 
NOT: WAIT 
GET ERROR ud 
RETURN ADDR. 


; BUMP 
i tteA net TO TAKE ERROR 
:CLEAR FATAL FLAG 


3:POP STACK INTO RO 
URN 


7eRE 

:sMESSG. FLAG 
7LOG FLAG 

+S FATAL FLAG 


114 


1 


ma 








CKKUACO 11/24/44 UBI MAP 
END OF PASS ROUTINE 


4076 


021450 


021526 


021546 
021546 


021552 


021632 
021632 


00 
021702 


177572 
172516 


001100 
001212 
020022 
100000 


021530 


020022 


001110 
021570 


001110 
001223 
001110 
000042 


021666 


000042 
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020022 


.SBTTL END OF PASS ROUTINE 


WETTTTT TTT TTTT TIT TTtc eet iii ii iti iii iii iti iii titi iii iii) 

“ kINCREMENT THE PASS NUMBER (S$PASS) 

;* INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

[*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY"' 
S*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 
:*IF SW12=1 INHIBIT TRACE TRAP 
3*IF THERES A MONITOR GO TO IT 


>*]F THERE ISN'T JUMP TO LOOP 
SEOP: 
SCOPE ;LOOP ON LAST TEST 
CLR MMRO ; TURN OFF FULL RELOCATION 
CLR MMR3 :DI E UNIBU. 
TBITR ;RESTORE THE T BIT IF IT WAS ON 
CLR STSTNM 73 ZERO THE TEST R 
CLR STIMES RO THE NUMBER OF ITERATIONS 
INC $SPASS ; INCREMENT THE PASS NUMBER 
BIC #100000, $PASS : DON" T ALLOW A NEG. NUMBER 
DEC (PC)+ ; LOOP? 
SEOPCT: .WORD 
BGT $SDOAGN sc YES 
MOV (PC)+,a(PC)+ ; RESTORE COUNTER 
SENDCT: .WORD 1 
SEOPCT 
TYPE vy a ASCIZ STRING 
BR 64$ ;GET OVER THE ASCIZ 
jig58: SASCIZ <12><15>/END PASS’ #/ 
MOV $SPASS ,-(SP) ; SAVE SPASS FOR TYPEOUT 
zi TYPE PASS NUMBER 
TYPDS 3:GO TYPE--DECIMAL ASCII WITH SIGN 
TST SERTTL sSEE IF pos op ARE ANY ERRORS TO REPORT ;DPMOO1 
BEQ 1000$ BRANCH OUNT at ta PRINT IF NOT :DPMOO1 
TYPE ,67$ :3 TYPE ASC? STR 
BR 66$ ;GET OVER THE ascl2 
iie7s ,ASCIZ / TOTAL ERRORS SINCE LAST REPORT 
MOV SERTTL,~(SP) 22 SAVE SERTTL FOR TYPEOUT 
TAL NUMBER OF ERRORS 
TYPDS £260 TYPE--DECIMAL ASCII WITH SIGN 
1000$: TYPE SCRLF YPE CARRIAGE RETURN, LINE FEED 
CLR ERTTL #2 CLEAR ERROR TOTAL 
$GET42: MOV av42,RO0 3 ;GET MONITOR ADDRESS 
BEQ SDOAGN 33 CH IF , 
CLR - (SP) 72 INSURE THE ‘'T’' BIT IS CLEAR 
MOV #$CLR.T,-(SP) :; SETUP FOR AN RTI OR RTT 
BR SRTRN :GO0_DO AN RTI OR RTT TO LOAD THE PSW 
ecient WITH A CLEARED ‘'T’’ BIT 
V a442,R0 32 INSURE Pd CONTAINS THE MONITORS 
EQ SDOAGN ; RETURN ADDRESS 
RESET 7:CLEAR THE OUORED 
SENDAD: JSR PC, (RO) 7:60 TO MONITOR 
NOP 7: SAVE ROOM 


NOP 


115 


a oe 
















021736 
021742 


021744 


051989 


CKKUACO 11/24/44 UBI MAP 
END OF PASS ROUTINE 


000240 


000020 
010000 
021750 


000020 
021744 


377 
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NOP 
SDOAGN: 

TRAP 

BIC 

157214 BIT 

BNE 

COM 

BM! 

BIS 
1$: MOV 
SRTRN: RTI 
SLOOP: 

JMP 
$RTNAD: .WORD 
$TBIT: .WORD 

000 $ENULL: .BYTE 


#20, (SP) 
he adem 
$TBIT 


1$ 
#20, (SP) 
#$LOOP,~(SP) 


a(PC)+ 
LOOP 


0 
-1,-1.0 


SEQUENCE 116 


3ZACT11 


:3PUSH OLD PSW AND PC ON STACK 
;CLEAR THE ‘'T’* BIT 
3 ERUN a TRACE TRAP? 


22BR 
;1S IT TIME FOR TRACE TRAP 
TBR IF NO 
TISET TRACE _TRAP 
;;JUMP TO START OF TEST 
2 ¢RETURN==THIS, IS CHANGED TO 
AN 'RTT’’ IF "RIT IS A LEGAL 
‘INSTRUCTION 
3 RETURN 


3:''T'' BIT STATE INDICATOR 
3sNULL CHARACTER STRING 


ma 
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VE AND RESTORE RO=R5 ROUTINES 


4078 .SBTTL SAVE AND RESTORE RO=-R5 ROUTINES 

FE RAAAAAAERARARERERRRAEEEERERE REAR EEREREERRERAEERERERARRRRE RARER 

7 *SAVE RO-R5 

:*CALL: 

SAVREG 

} UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE: 

‘ eTOP===(+16) 

p* +2---(+18) 

z* +4---R5 

7* +6---R4 

7* +8---R3 

3*+10---R2 

3*+12---R1 

3%+14=---R0 
021756 $SAVREG: 
021756 010046 MOV RO,-(SP) 7 7PUSH ~ | ON STACK 
021760 010146 MOV R1,-(SP) :7PUSH R1 ON STACK 
021762 010246 MOV R2,-(SP) 3ZzPUSH R2 ON STACK 
021764 010346 MOV R3,-(SP) 72PUSH R3 ON STACK 

66 0446 MOV R4,-(SP) 7;PUSH R4& ON STACK 

021770 910546 MOV R5S,-(SP) 7zPUSH RS ON STACK 
021772 000022 MOV 22(SP), -(SP) Zz SAVE PS OF MAIN FLOW 
021776 016446 22 MOV 22(SP) .=(SP) cy. E PC OF MAIN FLOW 
022002 016646 000022 MOV 22(SP) ,-(SP) 7 SAVE PS OF CALL 
022006 016646 000022 MOV 22(SP) ,-(SP) 7zSAVE PC OF CALL 
022012 000002 RTI 

;*RESTORE RO-R5 

3*CALL: 

yt RESREG 
022014 $RESREG: 
022014 012666 000022 MOV (SP)+,22(SP) ;zRESTORE PC OF CALL 
022020 012666 000022 MOV (SP)+,22(SP) RESTORE PS OF CALL 
022024 012666 000022 MOV (SP) +,22(SP) 7zRESTORE PC OF MAIN FLOW 
022030 012666 00002 MOV (SP)+,22(SP) 7zRESTORE PS OF MAIN FLOW 
022034 012605 MOV (SP)+,R5 7 POP STACK INTO R5 
022036 012604 MOV (SP) +,R4 :zPOP STACK INTO R4& 
022040 012603 MOV (SP)+,R3 3: POP STACK INTO R3 
022042 012602 MOV (SP)+,R2 7zPOP STACK INTO R2 
022044 012601 MOV (SP)+,R1 :zPOP STACK INTO R1 
022046 012600 MOV (SP) +,RO :zPOP STACK INTO RO 
022050 000002 RTI 


on 





ng BF EL gaat UBI MAP 


TYPE ROU 
4080 


022052 
022056 
022 


022214 
022220 


022240 





105737 
100002 


112716 


001155 


000002 
000001 


000100 


022122 
021210 


000040 


00000- 
000011 
000200 


022412 


022264 
001154 


001152 
000001 


022264 
022412 


000040 


8 10 
MACRO M1113 24-APR=81 19:48 PAGE 98 SEQUENCE 118 


020034 
020035 


020035 


» SBTTL TYPE ROUTINE 


SRAEREAAEARAAAAAEAEARAARERAAEAAAAARAAAAARAARAAAAARARARAARAARERAARAEREEHERE 


{ #ROUT INE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 iF 


*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
; *NOTE1: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
; *NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
; *NOTE3: SFILLC CONTAINS THE CH4RACTER TO FILL AFTER. 
-* 
>*CALL: 
p81) USING A TRAP INSTRUCTION 
; “on TYPE = ,MESADR | ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
** 
: TYPE 
ie ME SADR 
** 
$TYPE: TSTB  $TPFLG 31S THERE A TERMINAL? 
BPL 1$ 7:BR IF YES 
HALT ZHALT HERE IF NO TERMINAL 
BR 3$ ; SLEAVE 
1$: MOV RO,-(SP) SAVE RO 
MOV a2 (SP) ,RO 77GET ADDRESS OF F ASCIZ STRING 


CMPB MAPTENV, SENV 7 sRUNNING IN APT 
BNE 62$ 33NO,GO CHECK FOR APT CONSOLE 
BITB #APTSPOOL . SENVM fhe MESSAGE TO APT 


BEQ 62$ NO,GO ChECK FOR CONSOLE 
MUV RO,61$ +: SETUP MESSAGE ADDRESS FOR APT 
JSR PC, SATY3 32SPOOL MESSAGE TO APT 
61$: - WORD 0 :zMESSAGE ADDRESS 
62$: BITB #APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
BNE 60$ 2iYES, SKIP TYPE OUT 
2$: MOVB (RO) +,-(SP) PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE 4$ ::BR IF IT ISN'T THE TERMINATOR 
TST (SP) + zz 1F TERMINATOR POP IT OFF THE STACK 
60$: MOV (SP)+,RO ; RESTORE RO 
3$: ADD #2, (SP) 7 ADJUST RETURN PC 
RTI 7 RETURN 
4$: A MHT, (SP) 7 BRANCH IF <HT> 
ay a ; ;BRANCH IF NOT <CRLF> 
TST (SP) + z7POP <CR><LF> EQUIV 
TYPE sz TYPE A CR AND LF 
$CRLF 
CLRB SCHARCNT 4 ae CHARACTER COUNT 
BR 2$ :7GET NEXT CHARACTER 
5$: JSR PC ,STYPEC at TYPE THIS CHARACTER 
6$: CMPB SFILLC,(SP)+ :1S IT TIME FOR FILLER CHARS. ? 
BNE 2$ : IF NO GO GET NEXT CHAR. 
MOV SNULL,-(SP) . GET # OF FILLER CHARS. NEEDED 
ZAND THE NULL CHAR. 
7$: DECB 1(SP) ; :DOES A NULL NEED TO BE TYPED? 
BLT 6$ 7BR IF NO--GO POP THE NULL OF F OF STACK 
JSR PC, $TYPEC 7:60 TYPE A NULL 


BR 
“HORIZONTAL TAB PROCESSOR 
8s: MOVB #_, (SP) 


24D0 NOT COUNT AS A COUNT 


;ZREPLACE TAB WITH SPACE 


DECB SCHARCNT 
7$ 
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CKKUACO 11/26/46 UBI MAP SEQUENCE 119 
TYPE ROUTI 

022244 737 022264 ySR PC, STYPEC ii TYPE A SPACE 

022250 132737 7 022412 BITB 4#7.$CHARCNT ;3BRANCH IF NOT AT 

22256 001372 BNE 9$ STOP 

22260 005726 TST (SP)+ ; POP SPACE OFF STACK 
022262 000724 BR 2$ +:GET NE¥? CHARACTER 
022264 $TYPEC: 

22264 105777 156652 TSTB = @STKS ::CHAP IN KYBD BUFFER? :MJD001 
022270 22 : BPL 10$ :3BR IF NOT :MJDO01 
022272 017746 156646 MOV a$TKB,-(SP) T CHAR :MJD001 
022276 042716 177600 BIC #177600, (SP) ; STRIP EXTRANEOUS BITS *MJDO01 

22302 122716 23 CMPB #SXOFF, (SP) 33 CHAR XOFF :MJD001 

22306 001012 BNE 102$ +:BR IF NOT *MJD001 
022310 101$: *MJD001 
022310 105777 156626 TSTB = @$STKS ::WAIT FOR CHAR *MJDO001 
022314 100375 BPL 1018, >MJDO01 
022316 117716 156622 MOVB — a$TKB, (SP) ::GET CHAR :MJDO01 
022322 042716 177600 BIC #177600, (SP) ‘:STRIP IT *MJDOO1 
022326 122716 000021 CMPB #SXON, (§P) +:WAS IT XON? :MJDOO01 
022332 001 BNE 101$ [:BR IF NOT *MJDOO1 

22334 102$: ‘MJDO01 
022334 005726 TST (SP) + :iF IX STACK *MJD001 
022336 108: *MJDO01 
022336 105777 156604 TSTB = a$ TPS ::WAIT UNTIL PRINTER IS READY 
022342 100375 BPL 10$ :MJD001 
022344 126627 000002 000021 CMPB —s- 2( SP) , #$XON ::1S CHARACTER A RANDOM XON? *RANOO1 
022352 001420 BEQ STYPEX ;]BRANCH IF YES RANOO1 
022354 116677 000002 156566 MOVB  2(SP) ,a$TPB “LOAD CHAR TO BE TYPED INTO DATA REG. 

22362 122766 000015 000002 c #CR,2(SP) +:1$ CHARACTER A CARRIAGE RETURN? 

022370 001003 BNE 1$ ‘ SBRANCH IF NO 

022372 105037 022412 CLRB $C HARCNT ::YES--CLEAR CHARACTER COUNT 
022376 000406 BR $TYPEX XIT 

022400 122766 000012 000002 1$: CMPB es ML, 2 (SP) its CHARACTER A LINE FEED? 
022406 001402 BEQ $TYPEX ‘BRANCH IF YES 

022410 105227 INCB ss (PC) + *:COUNT THE CHARACTER 

022412 0000 SCHARCNT:.WORD 0 >= CHARACTER COUNT STORAGE 
022414 000207 $TYPEX: RTS PC 
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SEQUENCE 


S*THIS ROUTINE IS USED Spe ten it A 16-BIT BINARY NUMBER TO A 6-DIGIT 


PE IT 
i s$TYPOS--nENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;NUMRER TO BE TYPED 
CALL FOR TYPEOUT 
TO $ FOR NUMBER OF DIGITS TO TYPE 


+3 1=TYPE LEADING ZEROS 
3; 0=SUPPRESS LEADING ZEROS 


seSTYPOS OR STYPOC HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 


7;NUMBER TO BE TYPED 
73CALL FOR TYPEOUT 


; ;NUMBER TO BE ye 


; MODE 

;LOAD ZERO FILL SWITCH 
: INUMBER OF DIGITS 10 TYPE 
;zADJUST RETURN ADDRESS 


7zSET THE ZERO FILL SWITCH 
7sSET FOR SIX(6) DIGITS 
73SET 7 ITERATION COUNT 


; R5 
73GET THE NUMBER OF DIGITS TO TYPE 


3; SUBTRACT IT FOR MAX. ALLOWED 
7zSAVE IT FOR USE 

3:GET THE ZERO FILL SWITCH 
::PICKUP_THE INPUT NUMBER 
:;CLEAR THE OUTPUT WORD 

: ¢ROTATE MSB INTO ‘'C’’ 


DO MSB 
S:FORM THIS DIGIT 


4 LSB OF THIS DIGIT 
i TYPE —_ DIGIT? 


7BR_IF 
IGET RID OF JUNK 
ST FOR 0 
+! ea ae 0? 


IF 
7:DON'T SUPPRESS ANYMORE 0'S 
3sMAKE THIS DIGIT ASCII 


4082 -SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
P4 RARER ETAARAAARARARAEARAEEAAARARAAARAARAERAAAAARAEARRARAAAREAREEEEEE 
*0C TAL (ASCi1) NUMBER 
3*CALL: 
3® MOV NUM, =-(SP) 
3? TYPOS 
tool «BYTE N soNel 
3* BYTE M 3h 
te 
>*$TYPOS OR S$TY 
S*CALL: 
;* MOV NUM ,=(SP) 
i* TYPON 
js $1YPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
;*CALL: 
3* MOV  NUM,-(SP) 
: TYPOC . 
022416 017646 étyPos: MOV a(SP) ,-(SP) : ¢PICKUP THE 
022422 116637 000001 022641 MOVB 1(SP) , SOF ILL 
022430 112637 022643 MOVB (SP) +, SOMODE +1 
022434 062716 2 ADD #2, (SP) 
022440 06 BR $TY 
022442 112737 000001 022641 $TYPOC: MOVB #1,S$0F ILL 
022450 112737 000006 022643 MOVB #6, SOMODE +1 
022456 112737 000005 022640 $TYPON: MOVB #5, SOCNT 
022464 010346 MOV R3,-(SP) 77 SAVE 
022466 010446 MOV R4,-(SP) ZZ SAVE R4 
022470 010546 MOV R5,-(SP) 72 SAVE 
022472 113704 022643 MOVB SOMODE +1 RS 
022476 005404 NEG R4 
022500 062704 ADD #6,R4 
22504 110427 022642 MOVB R4 * SOMODE 
022510 113704 022641 MOVB SOF ILL,R4S 
022514 016605 000012 MOV 12(SP) ,R5 
022520 005003 CLR R3 
022522 006105 1$: ROL R5 
022524 000404 BR 3$ 
022526 006105 23: ROL R5 
22530 006105 ROL R5 
022532 00610 ROL R5 
22534 010503 MOV R5,R3 
22536 006103 3$: ROL R 
022540 105337 022642 DECB SOMODE 
022544 100016 BPL 
022546 042703 177770 BIC #177770,R3 
022552 1 E a3 
022554 005704 TST RS 
022556 001403 BEQ 5$ 33 
225 005204 4$: INC 
022562 052703 000060 BIS #'0,R3 
22566 052703 000040 5$: BIS Yn 





7sMAKE ASCII IF NOT ALREADY 


120 
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BINARY TO OCTAL 


022572 
022576 
022602 
022606 


(ASCII) AND TYPE 


110337 
104401 
105337 
003347 


022636 
022636 
022640 


000002 009004 


73%: 


6$: 


8$: 


S$OCNT: . 
OF HAL « 
SOMODE : 
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0 
1 


een" FOR TYPING 
:GO iy 3 ms DIGIT 


::BR IF MORE TO DO 
7:BR_IF DONE 
: INSURE LAST DIGIT iw T A BLANK 
THE LAST DIGIT 


S R3 
FISET THE STACK FOR RETURNING 


i Hy 
: STORAGE FOR ASCII DIGIT 
TERMINATOR FOR TYPE ROUTINE 
;OCTAL DIGIT COUNTER 
sZERO FILL SWITCH 
+ NUMBER OF DIGITS TO TYPE 





SEQUENCE 


121 


——— 


po 
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CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


een 
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SEQUENCE 


- SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


REAR AAAAAAAAAARAAAAEARAAEAAAARAREAAEAAAAEARAAAAARERARAAERARAARAAREHEEREE 


[*THIS ROUTINE IS USED TO CHANGE A 16-817 BINARY NUMBER TO A 5-DIGIT 


: *S1GNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 


ITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 


[*BEFORE THE FIRST DIGIT OF THE NUMBER. LFADING ZEROS WILL ALWAYS BE 


NUM, = (SP) 


RO,-(SP) 


R5,-(SP) 
#20200,-(SP) 
20(SP),R5 

1$ 

R5 

#'=,1(SP) 

RO 


#SDBLK ,R3 
# ,(R3)¢ 


R 
Ay mast 


(SP) 


6 

(SP) + 

$ 

-1(SP) ,~2(R3) 
(R3) 


(SP)+,R5 
(SP) +,R3 
(SP)+,R2 
(SP)+,R1 


; *=NUMBER IS POS 
;*REPLACED WITH SPACES. 
:*CALL: 
hl MOV 
:* TYPDS 
022644 $STYPDS: 
022644 010046 V 
022646 010146 MOV 
022650 010246 MOV 
022652 346 MOV 
022654 010546 MOV 
022656 012746 020200 MOV 
022 16605 000920 MOV 
022 1 BPL 
922670 005405 NEG 
022672 112766 000055 00V001 MOVB 
22700 005000 1$: CLR 
022702 912703 023060 MOV 
022706 112723 000040 MOVB 
022712 005002 ; 2$: CLR 
022714 6001 023050 MOV 
022720 160105 3$: SUB 
022722 002402 BLT 
022724 005202 . INC 
022726 774 BR 
2730 105 4$: D 
022732 005702 TST 
022734 1002 BNE 
022736 105716 TSTB 
022740 100407 ] 
022742 106516 5$ ASLB 
022744 103003 BCC 
022746 6663 000001 177777 MOVB 
022754 052702 000060 6$: BIS 
22760 052702 000040 7$: BIS 
022764 110223 MOVB 
022766 005720 TST 
022770 020027 000010 CMP 
022774 002746 BLT 
022776 3002 BGT 
3000 010502 MOV 
023002 000764 
023004 105726 8$: TSTB 
100003 L 
023010 116663 177777 177776 MOVB 
023016 105013 9$: CLRB 
23020 012605 MOV 
023022 012603 MOV 
023024 12602 MOV 
023026 012601 MOV 
023030 012600 MOV 
023032 104401 023060 TYPE 


Sas. Ee 


(SP)+,RO 
, SDBLK 


3;;PUT_THE BINARY NUMBER ON THE STACK 
3;G0 TO THE ROUTINE 


37PUSH RO ON STACK 
7ZPUSH R1 ON STACK 
7ZPUSH R2 ON STACK 
77PUSH R3 ON STACK 
: ¢PUSH RS ON STACK 
T BLANK SWITCH AND SIGN 
+:GET THE INPUT NUMBER 
;;BR IF INPUT IS POS. 
2 MAKE THE BINARY NUMBER POS. 
NUMBER NEC. 


MAKE THE ASCI 
i: ZERO THE CONSTANTS INDEX 
3;SETUP THE OUTPUT POINTER 
2eSET THE FIRST CHARACTER TO A BLANK 
D NUMBER 


3¢ 
ty THE CONSTANT 
73FORM THIS BCD DIGIT 


IF DONE 
INCREASE THE BCD DIGIT BY 1 


3;ADD BACK THE CONSTANT 
3;CHECK IF BCD DIGIT=0 
72FALL THROUGH IF 0 

‘ier IF "+ LEADING 0°S? 


:BR IF 
ii VES“SET THE SIGN 
2 7MAKc THE BCD DIGIT ASCII 
:MAKE IT A SPACE IF NOT ALREADY A DI S 


GIT 
T:PUT THIS CHARACTER IN THE OUTPUT BUFFER 


sf E TO ASCII 

:7WAS THE LSD THE FIRST NON-ZERO? 
ag IF NO 

7: SET THE TERMINATOR 


7 :POP 

:zPOP STACK INTO R3 
:z;POP STACK INTO R2 
:;POP STACK INTO R1 
77POP STACK INTO RO 
;zNOW TYPE THE NUMBER 


122 
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CONVERT BINARY TO DECIMAL AND TYPE ROUT! 


023036 016666 000002 000004 MOV 2(SP) ,4(SP) ADJUST THE STACK 

023044 012616 MOV (SP)+, (SP) 

023046 000002 RTI 7 zRETURN TO USER 
023420 $DTBL: 10000. 

023052 001750 1000. 


023056 000012 10. 
023060 SDBLK: .BLKW 4 


———————-—-- 


| Peace ee MAP 


| TTY INPUT ROU 
| 4086 
| 


023070 


023216 


023220 


012603 


000004 
156036 
156032 
177600 
000004 
156004 
156000 
177600 
000021 
000004 
000004 
000004 
000040 


023326 
023336 


000177 
001222 
023324 
023524 
000015 


177777 
001224 
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SEQUENCE 
.SBTTL TTY INPUT ROUTINE 
fF AMA AAAAAARERAAERAHEAEAEAERAAAAAARAARERAAAARRARRRRAAAERRORRAEREAD 
-ENABL LSB 
.DSABL LSB 
JF RRMARAAAAARAAAAAAEHEAETHAEEAAAAEERAAAARARRARERRRRRARERRARARERED 
eeTHs ROUTINE WIii 'NPUT A SINGLE CHARACTER FROM THE TTY 
s*CALL: 
;* RDCHR :: INPUT A SINGLE CHARACTER FROM THE TTY 
te RETURN HERE >: CHARACTER IS ON THE STACK 
te ::WITH PARITY BIT STRIPPED OFF 
$RDCHR: MOV (SP) ,=(SP) : :PUSH DOWN THE PC 
000002 MOV 4(SP),2(SP) *SAVE THE PS 
1$: STB) —s @STKS + WAIT FOR 
BPL 1$ *:A CHARACTER 
000004 MOVB  a$TKB,4(SP) +:READ THE TTY 
000004 BIC ancct??3 4(SP) ::GET RID OF JUNK IF ANY 
000023 CMP 4(SP), ::1$ IT A CONTROL-S? 
BNE 3$ > :BRANCH IF NO 
2$: TSTB = AS TKS ::WAIT FOR A CHARACTER 
BPL 2$ *:LOOP UNTIL ITS THERE 
MOVB  a$TKB,-(SP) *:GET CHARACTER 
BIC #*C177, (SP) *:MAKE IT 7-B1T ASCII 
CMP (SP)+,4#21 t:1S IT A CONTROL-Q? 
BNE 2$ ::1F NOT DISCARD IT 
BR 1$ 7:YES, RESUME 
000021 3$: CMP 4(SP) ,#$XON ::1S IT A RANDOM XON? :RANOO1 
BEQ 1$ BRANCH IF YES ;RANOO1 
000140 CMP 4(SP) ,#140 ‘:1S IT UPPER CASE? 
BLT 4 ::BRANCH IF YES 
000175 CMP 4(SP) ,#175 IS ITA SPECIAL CHAR? 
BGT 6$ + BRANCH IF 
000004 BIC #40,4(SP) t MAKE IT UPPER CASE 
4$: RT] ::GO0 BACK TO USER 
POR RAREBRSBSARSASESAZAZASESSEERESESEEES ESE REAR RSE RARE SERRE R SERRE RRS SERA S SS SS 
sSTHIS | ROUTINE WILL INPUT A STRING FROM THE TTY 
>*CALL: 
i* RDLIN zz INPUT A STRING FROM THE TTY 
3* RETURN HERE *: ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
+ +: TERMINATOR WILL BE A BYTE OF ALL O'S 
$RDLIN: MOV R3,-(SP) S:SAVE R3 
1$: MOV ASTTYIN,R3 ::GET ADDRESS 
23: CMP ASTTYINGS. ,R3 “BUFFER FULL? 
BLOS 4$ : BR IF YES 
RDCHR GO READ ONE CHARACTER FROM THE TTY 
MOVB (SP) +, (R3) +:GET CHARACTER 
10$: CMPB ss #177, (R3) ::1S IT A RUBOUT 
BNE 3$ ::SKIP IF NOT 
48: TYPE »SQUES ::TYPE A *?° 
BR is *ZCLEAR THE BUFFER AND LOOP 
3$: move (R3),9$ ::ECHO THE CHARACTER 
Y . 
CMPB so #15, (R3) + :;CHECK FOR RETURN 
BNE LOOP IF NOT RETURN 
CLRB ss = 1 (R33) : CLEAR RETURN (THE 15) 


-SLF 
MOV (SP) +,R3 





TYPE A LINE FEED 
SZRESTORE R3 


124 


a 
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TTY INPUT ROUTINE 


023304 011646 MOV (SP) ,=(SP) ¢ ADJUST THE STACK AND PUT on Pa THE 
023306 016666 0000046 000002 MOV + /SP) ,2(SP) z3 FIRST ASCII CHARACTER ON I 
023314 012766 023326 000004 MOV @STFYIN,4(SP) 
023322 000002 RTI RETURN 
0 9$: -BYTE O : STORAGE > ASCII CHAR. TO TYPE 
023325 000 -BYTE O 77 TERMINA 
023326 STTYIN: .BLKB 8. Say te "3 BYTES FOR TTY INPUT 
023336 136 125 015 $CNTLU: .ASCIZ /*U/<15><12> 37 CONTROL ‘U'' 

3343 136 107 015 $CNTLG: .ASCIZ /*G/<15><12> <s EONTROL a 
023350 015 012 123 SMSWR: .ASCIZ <15><12>/SWR = / 
023361 040 040 7116 SMNEW: .ASCIZ / NEW = / 





| 


I Ae ETE TN AS TREE Se SCE - 
J10 | 
| CKKUACO 11/26/44 UBI MAP MACRO M1113 24-APR=81 10:48 PAGE 102 SEQUENCE 126 | 
TRAP DECODER 
4088 .SBTTL TRAP DECODER 





+ eR ARAAEEREEARE RARE EEREREEARE ERATE EERE E EERE EERE RR OR EERE ERD | 
i THIS mw WILL PICKUP THE LOWER BYTE OF THE ‘‘TRAP’’ INSTRUCTION | 
AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS | 

: *OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL | 
:*#GO TO THAT ROUTINE. : 
| 

| 

| 

| 


| 023372 010046 STRAP: MOV RO,~<SP) ::SAVE RO 
023374 016600 000002 MOV 2(SP) ,RO *:GET TRAP ADDRESS 
023400 005740 TST =(RO) : :BACKUP BY 2 
023402 111000 MOVB (RO) ,RO i667 RIGHT BYTE OF TRAP 
023404 006300 ASL RO POSITION FOR INDEXING 
023406 016000 023426 mov $TRPAD (RO) ,RO : INDEX TO TABLE 
023412 000200 RTS RO *GO TO ROUTINE 

:; THIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 

023414 011646 $TRAP2: MOV (SP) ,=(SP) ::MOVE THE PC DOWN 
023416 016666 000006 000002 MOV 4(SP),2(SP) *:MOVE THE PSW DOWN 
023424 000002 RT] ‘RESTORE THE PSW 


-SBTTL TRAP TABLE 
:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE atne INSTRUCTION. 


: ROUTI 

023426 023414 $TRPAD: .WORD $TRAP2 

023430 022052 $TYPE ;;CALL=TYPE TRAP+1(104401) TTY TYPEOUT ROUTINE 

023432 022442 $TYPOC ;;CALL=TYPOC TRAP+2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 

023434 022416 $TYPOS ;;CALL=TYPOS TRAP+3(104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 

023436 022456 $TYPON ;;CALL=TYPON TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 

023440 022644 STYPDS ;;CALL=TYPDS TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 

023442 023070 SRDCHR = ;;CALL=RDCHR TRAP+6(104406) TTY TYPEIN CHARACTER ROUTINE 

023444 023220 SRDLIN 23 CALL= RDLIN TRAP+7(104407) TTY TYPEIN STRING ROUTINE 

023446 005634 $RDOCT ;;CALL=RDOCT TRAP+10(104410) READ AN OCTAL NUMBER FROM TTY 

023450 021756 $SSAVREG :3CALL= SAVREG  TRAP+11(104411) SAVE RO-R5 a ge hy 

023452 022014 SRESREG ;;CALL=RESREG TRAP+12(104412) RESTORE RO-R5 ROUTINE 
4089 023454 002726 TBITOF ;:CALL=TBITO TRAP+13(104413) THIS WILL TURN OFF T BIT TRAPPING 
4090 023456 002754 TBITRE ;;CALL=TBITR TRAP+14(104414) THIS WILL RETURN THE T BIT TO PREVIOUS CONDI | 
4091 023460 005634 $RDOCT ;;CALL=RDOCT TRAP+15(104415) READ OCTAL NUMBER 





—_——— eee 


4093 

023462 012737 023640 
23470 012737 000340 

023476 010046 
23500 010146 

023502 010246 

023504 010346 
23506 010446 


023512 017746 155420 
023516 010637 023644 
023522 012737 023534 
023 000000 


023560 012677 155352 
012605 
012600 
023600 012737 023462 
3606 000340 


2766 000020 
023632 005037 021750 
0 000002 


4094 023646 012 015 
095 
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000024 
000026 


000024 


000024 


000024 
000026 


000002 


120 


-SBTTL POWER DOWN AND UP ROUTINES 


MOR RRRRERRSALALALALALLELES ASSES EEL ARRAS ASS A RAR ARRAS AAR AAAS RASA DSSS 


“POWER DOWN ROUTINE 
$PwR 


DN: MOV 


MSILLUP ,QMPWRVEC ;;SET FOR FAST UP 
7340, arPuRVEC +2 ;:PRIO: 7 


RO,-(SP) 3=PUSH RO ON STACK 
R1,-(SP) 3;PUSH R1 ON STACK 
R2,-(SP) 3zPUSH R2 ON STACK 
R3,-(SP) 3PUSH R3 ON STACK 
R4,-(SP) 3sPUSH R4 ON STACK 
R5,-(SP) 33PUSH RS ON STACK 
@SWR ,-(SP) 3zPUSH @SWR ON STACK 


;sSAVE SP 
ASPWRUP ,AAPWRVEC ;;SET UP VECTOR 


. oe 
RRR AAEARERREREAEEEREAAEEEAEAEAEEEEEREEEEREKEREEEEEEEE 


: POWER UP ROUTINE 


$PWRUP: MOV 


1$: INC 


$SPWRMG: .WORD 
$PWRAD: .WORD 


$ILLUP: HALT 
BR 
SSAVR6: 0 


AMSILLUP ,a#PWRVEC ;;SET FOR FAST DOWN 


SSAVR6, SP 3;:GET SP 

SSAVR6 :zWAIT LOOP FOR THE TTY 
SSAVR6 ;sWAIT FOR THE INC 

1$ 330F WORD 

(SP) +, @SWR 3:sPOP STACK INTO @SWR 
(SP)+,R5 3:POP STACK INTO R5 
(SP) +,R4 7sPOP SiACK INTO R4 
(SP)+,R3 3:POP STACK INTO R3 
(SP)+,R2 3zPOP STACK INTO R2 
(SP)+,R1 2 ¢POP STACK INTO R1 


; 0 RO 
#SPWRDN, @MPWRVEC :;SET UP THE POWER DOWN VECTOR 
#340, a#PWRVEC+2 2 ¢PRIO: 7 
REPORT THE POWER FAILURE 


PWRMSG +: POWER FAIL MESSAGE POINTER 
(PC) +, (SP) ZZRESTART AT START 

START : sRESTART ADDRESS 

#20,2(SP) 7 CLEAR ‘'T’’ BIT 

$TBIT 7 CLEAR THE ‘'T’’ BIT FLAG 


32 THE POWER UP SEQUENCE WAS STARTED 
72 33; BEFORE THE POWER DOWN WAS COMPLETE 


3;PUT THE SP HERE 
PWRMSG : ry <12><15>?POWER FAILURE, RESTARTING PROGRAM? 
EV 


127 
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1 


















DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


4097 .SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 
LE ERAAARAAERAAAERAA ER ARE REE AAEEAAEERERRAEEAERAERREREERRERERERRRERE 
**THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN 
: SUNS IGNED OCTAL ASCIZ NUMBER. 
: MOV #PNTR,=(SP) y;POINTER TO LOW WORD OF BINARY NUMBFR 
:* JSR PC ,a¥$DB20 *:CALL THE ROUTINE 
:* RE TURN +: THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 
023712 104411 $DB20: SAVREG :3SAVE ALL REGISTERS 
023714 016601 000002 MOV 2(SP), “PICKUP THE POINTER TO LOW WORD 
023720 012705 024031 MOV osocrvce13. RS + POINTER TO DATA TABLE 
023724 012704 000014 MOV 12. .R4 *:DO ELEVEN CHARACTERS 
23730 012703 177770 MOV #°C7_R3 + :MASK 
023734 012100 MOV (R1)+,RO +: LOWER WORD 
23736 012101 MOV (R1)+_R1 tZHIGH WORD 
023740 00500 CLR R2 : TERMINATOR 
023742 110245 1$: MOVB —R2, =(R5) “PUT CHARACTER IN DATA TABLE 
023744 010002 MOV RO,R2 *:GET THIS DIGIT 
023746 005304 DEC RS *:COUNT THIS CHARACTER 
023750 003007 BGT 3$ ;iBR IF NOT THE LAST DIGIT 
023752 001405 BEQ 2$ :BR if IT IS THE LAST DIGIT ° 
023754 005205 INC RS 33 ALL DIGITS DONE-ADJUST POINTER | FOR FIRST 
023756 010566 000002 MOV RS,2(SP) SASCIZ CHAR. & PUT IT ON THE STA 
023762 104412 RESREG T:RESTORE ALL REGISTERS 
023764 00020 RTS PC : ERETURN TO USER 
23766 006203 2$: ASR R3 POSITION THE MASK FOR THE LAST DIGIT 
023770 006001 3$: ROR R1 {POSITION THE BINARY NUMBER FOR 
23772 006000 ROR RO i: THE NEXT OCTAL DIGIT 
023774 006001 ROR R1 
023776 006000 ROR RO 
024000 006001 ROR R1 
024002 006000 ROR RO 
024004 04030 BIC R3,R2 :zMASK OUT ALL JUNK 
024006 062702 000060 ADD #'°0,R2 SMAKE THIS CHAR. ASCII 
024012 75 BR 1$ +:GO PUT IT IN THE DATA TABLE 
024014 SOCTVL: .BLKB 14. > =RESERVE DATA TABLE 
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ERROR MESSAGES 


4099 .SBTTL ERROR MESSAGES 
4100 024032 


116 117 124 EMI: -ASCIZ 2NOT THE CORRECT TRAP CONDITION THROUGH ERRVEC (#004)? 

4101 024117 125 116 105 EM2: -ASCIZ UNEXPECTED CPU TRAP THROUGH ERRVEL (#004)? 
4102 024171 125 116 105 EMS: eASCIZ 2UNEXPECTED MEMORY MANAGEMENT TRAP, MEMORY MANAGEMENT STATUS REGISTERS? 
4103 024277 123 125 115 EMG: “ASCIZ SUMMARY OF MAP REGISTERS THAT TIMED OUT ON READ 
4104 024357 123 125 115 EMS: -ASCIZ 2SUMMARY OF DUAL ADDRESSING ERRORS ON LOADING MAP REGISTERS? 
4105 024452 123 125 115 EM6: -ASCIZ 2SUMMARY OF BIT PATTERN FAILURES IN LOWER 16 BITS OF MAP REGISTERS? 
4106 024554 123 125 115 EM?: -ASCIZ ?SUMMARY OF BIT PATTERN FAILURES IN UPPER 6 BITS OF MAP REGISTERS? 
4107 024655 103 101 116 E—M10 -ASCII ?CAN'T GET TO MAIN MEMORY FROM UNIBUS WITH THE MAP OFF ?<CRLF> 
4108 024743 123 117 040 -ASCIZ ?SO JUMPING TO THE SIZE JUMPER TEST FOR VERIFICATION? 
4109 025027 123 125 115 EM11 -ASCIZ 2SUMMARY OF COUNT PATTERN FAILURES ON THE UNIBUS DATA PATH? 
4110 025121 125 116 111 EM12 -ASCIZ 2UNIBUS MAP IS RELOCATING WHEN NOT ENABLED? 
4111 025173 103 101 116 EM13 eASCII 2?CANNOT USE ANY OF THE MAP REGISTERS ee ee neers 
4112 025253 101 104 104 -ASCII 2ADDRESS BIT14 IS STUCK LOW, MUST RESTART PROGRAM?<CRLF> 
4113 025334 111 106 040 “ASCIZ 21F YOU DON'T LOOP ON THIS PROBLEM. ? 
4114 025377 123 125 115 €M14:  <%ASCIZ SUMMARY OF UNIBUS ADDRESS ERRORS, WITH THE MAP RELOCATION DISABLED? 
4115 025502 115 101 111 —M15: <:ASCIZ 2MAIN MEMORY TIMEOUT OVER THE UNIBUS DID NOT OCCUR PROPERLY? 
4116 025575 122 105 114 EM16: [ASCIZ RELOCATION THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION? 
4117 025673 116 117 040 EM17: .ASCIZ ?NO_UNIBUS MEMORY EXISTS? 
4118 025723 111 116 124 EM20: .ASCIZ ?INTERRUPT/ABORT LOGIC TESTS TRAP TO oath 114 DID NOT OCCUR? 
4119 026022 111 116 124 EM21: .ASCIZ ?INTERRUPT/ABORT TESTS R4 WAS OVERWRITTEN WITH 
4120 026100 111 116 124 EM22: .ASCIZ ?INTERRUPT/ABORT TESTS TRAP DID NOT OCCUR DUE to ABORT? 
4121 026166 114 115 101 EM23:  .ASCIZ ?LMA NOT LOADED PROPERLY? 
4122 026216 114 115 101 EM24: .ASCIZ ?LMA FORCE JUMPER BIT NOT ZERO? 
4123 026254 114 115 101 EM25: .ASCIZ ?LMA FORCE JUMPER BIT NOT SET? 
4124 026311 114 115 101 EM26: .ASCIZ ?LMA CONTROL BITS INCORRECT? 
4125 026344 106 117 122 EM27:  .ASCIZ FORCE JUMPER BIT roel TO REVERT MAP REGISTER STATUS TO DEFAULT? 
4126 026444 113 111 120 EMS0:  .ASCIZ ?KIPARS NOT LOADED PROPERLY? 
4127 026477 124 110 105 EM201: -ASCIZ 2?THE FOLLOWING REGISTERS TIMED OUT WHEN READ 
4128 026553 124 110 105 EM202: .ASCIZ ?THE FOLLOWING ARE DUAL ADD “yy ERRORS IN. THE UNIBUS MAP? 
4129 02 124 110 105 EM203: .ASCIZ ?THE BIT PATTERN THROUGH THE MAP REGISTERS FAILED? 
4130 02672 125 116 111 EM204: .ASCIZ ?UNIBUS DATA PATH COUNT PATTERN FAILURE? 
4131 026776 125 116 111 EM205: .ASCIZ ?UNIBUS ADDRESSING ERRORS, MAP RELOCATION DISABLED? 

027060 104 101 124 EM206: .ASCIZ ?DATA PATTERN NOT CORRECT? 
4133 027111 122 10£ 106 EM207: .ASCIZ ?REFERENCED MAP REGISTER 0 At ADDRESS ONE BIT DIFFERENT THAN 17770200? 
4134 0272 115 101 120 EM210: .ASCIZ 2MAP REGISTER(S) UNDER TEST DID NOT RESPOND IN DUAL MAPPING TEST? 
4135 027320 122 105 114 EM211: .ASCII ?RELOCATION THROUGH THE MAP WAS NOT CORRECT, CARRY PROPAGATION?<CRLF> 
4136 027416 124 105 123 -ASCIZ ?TEST CODE BEING RUN OVER UNIBUS? 
4137 027456 115 101 111 EM212: .ASCII 2MAIN MEMORY bang - J OVER THE UNIBUS DID NOT OCCUR PROPERLY?<CRLF> 
4138 027551 124 105 123 eASCIZ ?TEST CODE BEING RUN OVER UNIBUS? 
4139 027611 115 101 120 EM213: .ASCIZ ?MAP REGISTER ENABLED WHEN DDW SAYS IT SHOULD BE DISABLED? 
4140 027702 115 101 120 EM214: .ASCIZ ?MAP REGISTER DISABLED WHEN DDW SAYS IT SHOULD BE ENABLED? 
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DATA HEADERS 
ASCIZ 


?RECEIVD EXPECTD TESTNO ERR PC? 
?RECEIVD TESTNO ERP FC? 


2STATUS AUTOI/D VIRTUAL?<CRLF> 

?REGISTR REGISTR ADDRESS TESTNO ERR PC? 

?REGADRS REGADRS?<CRLF> 

? *OR'' ""AND"* ERRORS TESTNO ERR PC? 

?REGLOAD REGLOAD REGDUAL REGDUAL?<CRLF> 

9 “a *"AND'' . ee 6 se S TESTNO? 


i #ERROR 

?MAPREG MAPREG EXPECTD EXPECTD RECEIVD RECEIVD?<CRLF> 

? ‘ oe oe ee “x ““AND'' *‘oR’’ *“AND'' #ERRORS TESTNO? 
?TESTNO ERR PC MMR3? 

2EXPECTD EXPECTD RECEIVD RECEIVD?<CRLF> 
° *OR’’ *“AND'' *‘OR’' *"AND'' 


: MERRORS TESTNO? 
?CONDITN CONDI TN?<CRLF> 

2EXPECTD RECEIVD TESTNO ERR PC? 

: ERR PC LMAEXP LMARCV? 

?TESTNO ERR PC LMAEXP LMARCV? 

2TESTNO ERR PC LMARCV KIPAR4? 

?TESTNO ERR PC PRSEXP PRSRCV? 

?REGADRS TESTNO ERR PC? 
?2MAPREG MAPREG NON-ZER?<CRLF > 

?TESTING DUALED CONTNTS TESTNO ERR PC? 
?REGADRS PATTRN EXPCTD RECEVD TESTNO ERR PC? 
2EXPECTD RECEIVD ADDRSLOAD TESTNO ERR PC? 
?ADDRESS ADDRESS?<CRLF> 

2EXPECTD RECEIVD TESTNO ERR PC? 

2ADDRESS EXPCTD RECVED TESTNO ERR PC? 
2ADDRUSED BITDIFF TESTNO ERR PC? 

; ERR PC MAPREGADR? 

?CORRECT EXPECTD RECEIVD?<CRLF> 

?ADDRESS DATA FROM UB TESTNO ERR PC? 
?CONDITN CONDI TN?<CRLF> 
2EXPECTD RECEIVD TESTNO ERR PC? 

?TESTNO ERR PC REG NO DDWDAT DDWADR? 
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DATA TABLES 


4177 -SBTTL DATA TABLES 

4178 032212 001330 001326 020020 OT]: «WORD PCPUER,CPUEXP,STESTN,BADPC ,0 

4179 OasSee 001330 020020 001 DT2: «WORD PCPUER,STESTN,BADPC, 

4180 0322 001350 001352 001354 DT3: -WORD PMMRO,PMMR1 ,PMMR2,STESTN,BADPC 0 

4181 032250 001236 001232 001320 DT4: -WORD ADDROR,ADRAND,ERRCNT ,STESTN,SERRPC 0 

4182 032264 001236 001232 001246 DTS: -WORD ADDROR,ADRAND ,DATAOR,DATAND,ERRCNT ,$TESTN,O 
4183 032302 001236 001232 001254 DTé6: -WORD ADDROR,ADRAND,PATTOR,P.ATAND,DATAOR,DATAND ,ERRCNT ,$TESTN,O 
4184 032324 020020 001114 172516 DT10: .WORD STESTN,SERRPC,.MMR3,0 

4185 632334 001254 001252 001246 DT11:  .WORD PATTOR,PATAND,DATAOR,DATAND,ERRCNT ,STESTN,O 
4186 032352 001 001232 001246 DT14:  .WORD ADDROR,ADRAND,DATAOR,DATAND ,ERRCNT,STESTN,O 
4187 032370 001326 001330 020020 DT15: .WORD CPUEXP,PCPUER,STESTN,SERRPC, 

4188 032402 001114 005770 DT23: .WORD $TESTN,SERRPC,EADRES,E . 

4189 032414 020020 001114 001162 DT24: .WORD S$TESTN,SERRPC,SREG1.LMAHI ,0 

4190 032426 020020 001114 001174 DT26: .WORD $TESTN,SERRPC,STMPO,SREG2,0 

4191 032440 001114 001174 DT27: .WORD S$TESTN,SERRPC,STMPO,KIPAR4,0 

4192 032452 020020 001114 001206 DI30: .WORD S$TESTN,SERRPC,$TMPS ,KIPARS,O 

4193 032464 005770 020020 001114 DT201: .WORD EADRES,STESTN,SERRPC,0 

4194 032474 005774 005770 001202 DT202: ‘WORD EADRS2.EADRES,$TMP3, STESTN, SERRPC ,0 

4195 032510 005774 001174 001170 DT203: .WORD EADRS2,$TMPO,SREG4,SREG3,$TESTN,SERRPC,0 
4196 032526 001174 001176 001164 DT204: .WORD S$TMPO,STMP1,$REG2,STESTN, SERRPC,0 

4197 032542 005770 005774 020020 DT205: .WORD EADRES,EADRS2,$TESTN,SERRPC,0 

4198 032554 005770 001204 001206 DT206: .WORD EADRES,STMP4,$TMPS,STESTN, SERRPC,0 

4199 032570 005770 001160 020020 DT207: .WORD EADRES,$REGO,$TESTN,SERRPC,0 

4200 032602 020020 001114 005770 DT210: .WORD S$TESTN,SERRPC,EADRES,0 

4201 032612 005770 001166 001164 DT211: .WORD EADRES,$REG3,$REG2,$TESTN, SERRPC,0 

4202 032626 001326 001330 020020 DI212: .WORD CPUEXP,PCPUER,$TESTN,SERRPC ,0 

4203 032640 020020 001114 001174 DT213: .WORD $TESTN,SERRPC,$TMPO,$TMP1,$REGS,0 


BO ee aE a ae aes ete SAE ln ee aan toe cae th Gea? 







CKKUACO 11/24/44 UBI MAP 
DATA FIELDS 


4204 -SBTTL DATA FIELDS 
4205 032654 000 DF1: -BYT 0.0,0.0,0 
4206 032661 002 002 001 DF4: BYTE 2,2.,1.0,0 
207 032666 002 002 2 DFS: BYTE 2,2,2,2.1.0 
4208 032674 002 002 000 DF6: BYTE 2,2,0,0,0,0.1,0 
2704 000 DF11: BYTE 0,0,0,0,1,0 
4210 032712 002 002 000 DF14: .BYTE 2,2.0,0,1,0 
4211 032720 000 002 DF23: .BYTE 0,0.2.2 
4212 032724 002 000 DF201: .BYTE 2,0,0,0,9.0 
4213 032732 000 000 003 DF204: .BYTE 0,0,3.0,0 
4214 032737 000 000 002 DF210: .BYTE 0,0.2 
4215 000001 END 


SEQUENCE 
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0 11 
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SYMBOL TABL 
SE = 000000 BITO = 000001 DF 1 032654 DT23 032402 FLOATR 006000 
ACDW1 = 000000 B1T00 = 000001 DF11 032704 DT 24 032414 FTTHRU 003532 
ACDW2 = 000000 B1T01 = 000002 DF 14 032712 DT26 032426 GMRMD1 0077 
C = 000000 BITO2 = DF201 032724 DT27 032440 7711 
ADDROR 001236 BITOS = 000010 DF204 032732 DT3 032234 HIADRS= 177742 
= 177777 BIT04 = 000020 DF210 032737 DT30 032452 HIGEST 00 
ADDW1 = 177777 BITO5 = 000040 DF 23 032720 DT4 032250 HITMIS= 177752 
ADDW10= 000000 B1T06 = 000100 * 66 DT5 032264 = 
ADDW11= 000000 B1T07 = 000200 F 032666 DT6 032302 IBSAVE 020554 
ADDW12= 000000 BITO8 = 00 DF6 032674 EADRES 005770 IOTVEC= 20 
13= 000000 BiTO9 = 001000 DH1 027773 EADRS2 005774 JMPMSG 2 
ADDW14= 000000 BIT] = 2 DH10 030601 EMTVEC= 000030 KDPARO= 172360 
ADDW15= 000000 BIT10 = 002000 DH11 030626 Mi 024032 KDPAR1= 172362 
ADDW2 = 000000 BIT11 = 000 DH15 030763 EM10 024655 KDPAR2= 172364 
ADDW3 = 000000 BIT12 = 010000 H 030032 EM11 025027 KDPAR3= 1 
ADDW4 = 000000 BIT13 = 020000 DH201 031240 EM12 025121 KDPAR4= 172370 
ADDWS = 000000 B1T14 = 040000 DH202 031267 EM13 025173 KDPARS= 172372 
ADDW6 = 000000 BITi5 = 100000 DH203 031376 EM14 025377 KDPAR6= 172374 
ADDW7 = 000000 BIT2 = 000004 DH204 031457 EM15 025502 KDPAR7= 172376 
ADDW8 = 000000 BITS = 000010 DH205 031530 EM16 025575 KDPDRO= 172320 
DW9 = 000000 BIT4 = 000029 DH206 031615 EM17 025673 KDPDR1= 172322 
ADEVCT= 000000 BITS = 000040 DH207 = 031665 EM2 024117 KDPDR2= 172324 
ADEVM = 000000 BIT6 = 100 DH210 031726 EM20 025723 KDPDR35= 172326 
R 001232 BIT? = 000200 DH211 031760 EM201 026477 KDPDR4= 172330 
ADREXT 003674 BIT8 = 000400 DH212 032063 EM202 026553 KDPDR5= 172332 
AENV BIT9 = 001000 DH213 32142 EM203 026646 KDPDR6= 172334 
014 DH23 031042 EM204 026727 KDPDR7= 1 
001276 DH24 031103 EM205 026776 KERSTK= 001100 
= 177746 DH27 031142 EM206 02706 KIPARO= 172340 
DH3 030061 EM207 = 027111 KIPAR1= 172342 
005324 DH30 031201 EM21 026022 KIPAR2= 172344 
005764 DH 030160 EM210 027220 KIPAR3= 17234 
005076 DHS 030255 EM211 027320 KIPAR4= 172350 
005604 DH6 030412 EM212 027456 KIPAR5S= 172352 
DISPLA 001140 EM213. 027611 KIPAR6= 172354 
= 177744 DISPRE 000174 EM214 027702 KIPAR7= 172356 
001322 DSABLD 005230 EM22 026100 KIPDRO= 172 
= 177746 DSWR = 177570 EM23 KIPDR1= 172302 
003224 DTMS 005744 EM24 026216 KIPDR2= 172304 
020552 DIMSG 005750 EM25 026254 KIPDR3= 172306 
D 032212 EM26 026311 KIPDR4= 172310 
= 177766 DT10 032324 EM27 026344 KIPDRS= 172312 
001326 DT11 032334 EM3 024171 KIPDR6= 172314 
D114 032352 EM30 26444 KIPDR7= 172316 
010003 DT15 032370 EM4 024277 KSP = 
= 000 032224 EMS 024357 LF = 12 
= 000200 DT201 32464 EM6 024452 K = 177546 
= 000116 DT202 032474 EM7 024554 LKVEC = 
= 000 DT203 032510 E 05266 LM 
001364 DT204 032526 ERRCNT 001320 LMAHI = 177736 
001242 DT205 032542 ERROR = 104000 LMAL 
001246 DT206 032554 ERRVEC= 0 LMALOW= 177734 
003624 DT207 032570 ERTYPE 00 RS= 177740 
= 100000 DT210 032602 ER200 001666 LOEFLG 004312 
= 140000 DT211 032612 EXTOUT 005766 LOOP 010570 
= 177570 DI212 032626 FJBIT = 000100 LOWEST 001256 
006124 DT2135 03264 FLAG 001324 LREGL 001500 


CKKUACO_ 11/24/44 UBI MAP 
SYMBOL TABLE 


LREGU 001302 
MAINT = 177750 
MAPADD 004106 
MAPHO = 170202 
= 170202 
MAPHO1= 170206 
MAPHO2= 170212 
MAPHO3= 170216 
= 170222 
MAPHOS= 170226 
= 170232 
MAPHO7= 170236 
MAPH1 = 170206 
MAPH10= 170242 
MAPH11= 170246 
MAPH12= 170252 
MAPH13= 170256 
MAPH14= 170262 
MAPH15= 170266 
MAPH16= 170272 
MAPH17= 170276 
MAPH2 = 170212 
MAPH20= 1 


MAPL13= 170254 


PATEXT 
PATRNS 


— 11 
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006106 





PATTOR 003254 
PCONTR 001334 


PRO = 000000 
PR1 = 000040 
PR2 = 000100 
PR3 = 000140 
PR4 = 000200 
PRS = 000240 
PR6 = 000300 
PR7 = 000340 
PS = 177776 
PSW = = 177776 
PTMP2 005000 

023646 
PWRVEC= 000024 
RDCHR = 104406 
RDLIN = 104407 
RDOCT = 104415 


R10 =%000000 
R11 =%000001 
R12 =%000002 


R13. =%000003 


SDPAR4= 172270 
SDPARS= 172272 
SDPAR6= 172274 
SDPAR7= 172276 
SDPDRO= 172220 


SDPOR1 


040000 


SW15 = 100000 
SW2 = 000004 
SW3 = 000010 
SW4 = 000020 
SWS = 000040 
SW6 = 000100 
SW7 = 000200 
SwW8 = 000400 
Sw9_ = 001000 
SYSTID= 177764 
TBIT = 000020 
TBITO = 104413 
TBITOF 002726 
TBITR = 104414 
TBITRE 002754 
TBITVE= 00001 
004416 
TIMEOU 003030 
TIMOUT= 20 
TKVEC = 0 
TOFLAG 003032 
OMSG 006265 
TPVEC = 
TRAPVE= 34 
TRIVEC= 14 
TSTLOC 003474 
TST1 01 
TST10 014600 
TST11 15054 
TST12 =©015122 
TST13. 015156 
TST14 015316 
TST15 =—015344 
TST16 §=©.015402 
TST17 =: 015432 
TST2 011104 
TST20 015560 
TST21 015702 
TST22 016102 
TST23. 016150 
TST24 016356 
TST25 016422 
TST26 016564 
TST27 016720 
ST3 011426 
TST30 017046 
TST31 = 017274 
TST32 = 021450 
TST4 011744 
TST5S 012224 
TST6 012612 
TST7 013674 
TYPDAT= 002244 
TYPDS = 104405 
TYPE = 104401 
TYPOC = 104402 
TYPON = 104404 


| 


iy 
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CKKUACO 11/24/44 UBI MAP MACRO M1113 24-APR-81 10:48 PAGE 108-3 SEQUENCE 135 
SYMBOL TABLE 
TYPOS = 104403 USP  =%000006 $DTBL_ 023050 SMFLG 021444 $SWR = 177400 
TYPVAD 002542 YESMSG 013524 SENDAD 021676 SMNEW 023361 $SWREG 020036 
UBADDR 002650 SAPTHD 0 SENDCT 021516 $MSGAD 020030 S = 
UBMAVA $ATYC 021226 SENULL 021752 $MSGLG 020032 $TBIT 021750 
UBME ND 2 $ATY1 021202 SENV 020034 SMSGTY 020014 $TESTN 020020 
UBMH I 1 $ATY3 = 021210 SENVM 020035 S 023350 $TIMES 001212 
UBML OW 1262 $ATYS 021220 SEOP 021450 S$MTYP1 02004 $TKB 001144 
UBMSU =: 015220 $AUTOB 1132 SEOPCT 021510 $MTYP2 020051 $TKS 001142 
UBM24L S 020070 SERFLG 001101 $MTYP3 020055 $TMPO 8001 
UBM24P 001314 $BDADR 001120 $E 001113 SMTYP4 02006 $T™MP1 001176 
UBM24U 001312 $BDDAT 001124 SERROR 020556 $MXCNT 020550 $TMP2 001200 
UBRHI 001274 $BELL 00 SERRPC 001114 001152 $TMP3 001202 
UBRLOW 001272 $CDW1 020074 $SERRTB 001366 SNWTST= 00000 $TMP4 001204 
UDPARO= 177660 $CDW2 020076 SERTTL 0 SOCNT 640 $TMPS 001206 
UDPAR1= 177662 $SCHARC 022412 SESCAP 001214 SOCTVL 024014 STMP6 001210 
UDPAR2= 177664 $CLR.T 021666 SETABL 020034 SOMODE 022642 $IN = 32 
UDPAR3= 177666 SCMTAG 001100 SETEND 020140 SOVER 020534 001150 
UDPARS= 177670 $CM1 = $FATAL 020016 $PASS 020022 $TPFLG 001155 
UDPARS= 177672 $CM2 = 000014 $FFLG 021446 $PASTM 020006 $TPS 
UDPAR6= 177674 $CM3 = 00 $FILLC 001154 $PWRAD 023622 $ 023372 
UDPAR7= 177676 $CM4 = $FILLS 001153 SPWRDN 023462 ETRAP2 023414 

PDRO= 177620 SCNTLG 023343 $GDADR 001116 SPWRMG 023616 $TRP = 6 
UDPDR1= 177622 SCNTLU 3336 $GDDAT 001122 $ 023534 $TRPAD 023426 
UDPDR2= 177624 $ 04 $GET42 021650 $QUES 001222 $TSTM 020004 
UDPDR3= 177626 $CRLF 001223 D = 000000 $RDCHR 023070 STSTNM 

= 177630 $DBLK 023060 $HIBTS 020000 $RDLIN 023220 $TTYIN 023326 

UDPDRS= 177632 $DB20 023712 $HIOCT 005742 $RDOCT 005634 $TYPDS 64 
UDPDR6= 177634 $DDWO 020100 $ICNT 001102 $RDSZ = 000010 $TYPE 022052 
UDPDR7= 177636 $DDW1_ 020102 $ILLUP 023640 $REGAD 001156 $TYPEC 64 
UIPARO= 177640 $DDW10 020124 $INTAG 001133 $REGO 001160 STYPEX 022414 
UIPAR1= 177642 $DDW11 020126 SITEMB 001112 $REG1 001162 $TYPOC 022442 
UIPAR2= 177644 $DDW12 020130 $LF 001224 $REG2 001164 STYPON 022456 
UIPAR3= 17764 $DDW15 020132 $LFLG 021445 $REGS 001166 $TYPOS 022416 
UIPAR4= 177650 $DDW14 020134 $LOOP 021744 $REG4 001170 $UNIT 020026 
UIFARS= 177652 $DDW1F 020136 $LPADR 0011 $REGS 001172 SUNITM 020010 
UIPAR6= 177654 $DDW2 020104 $LPERR 001106 SRESRE 022014 
UIPAR7= 177656 $DDWS 020106 $MADR1 020046 $RTNAD 021746 $VECT1 O02 
UIPDRO= $DDW4 020110 $MADR2 020052 $RTRN 021742 $VECT2 020066 
UIPDR1= 177602 $DDW5 020112 $MADR3 020056 $SAVRE 021756 $XOFF = 000023 
UIPDR2= $DDW6 020114 SMADR4 020062 $SSAVR6 023644 $XON = 000021 
UIPDR3= 177606 $DDW7 020116 $MAIL 020014 $SCOPE 020140 $XTSTR 020244 
UIPDR4= 177610 $DDW8 020120 $MAMS1 020044 $SETUP= 000037 $$GET4= 000001 
UIPDRS= 177612 $PDW9 020122 SMAMS2 020050 $SSWR 000176 SOFILL 022641 
UIPDR6= 177614 $DEVCT 020024 $MAMS3 020054 $STUP = 177777 -$X = 020000 
UIPDR7= 177616 $DEVM 020072 $MAMS4 020060 $SVLAD 020500 -$Y = 002026 
USESTK= 000600 $DO0AL. 021706 $MBADR 020002 $SVPC = 000204 


- ABS. 032742 000 
000000 001 
ERRORS DETECTED: 0 


VIRTUAL MEMORY USED: 56408 WORDS ( 221 aes 

DYNAMIC MEMORY: 20034 WORDS ( 77 PAGES 

ELAPSED TIME: 00:08:24 

CKKUAC .BIN, CKKUAC/CR/~SP/NL : TOC=CKKUAC .MLB/ML , CKKUAC P11 
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CREATED BY MACRO ON 24-APR-81 AT aie 
CROSS REFERENCE 
AL 


hry > a 


92-4068 


92-4068 


98-4080 
95-4074 


#95-4074 
92-4068 
92-4068 
92-4068 
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PAGE 1 
QUENCE 136 
CREF vO01 
41-2237 *93-4070 *93-4070 107-4181 107-4182 
92-4068 
92-4068 
*41-2239 *93-4070 *93-4070 107-4181 107-4182 
57-2823 58-2892 60-2970 69-3327 69-3369 
#95-4074 98-4080 
98-4080 


107-4183 


107-4185 
70-3440 


107-4186 


107-4186 


eo 


H 11 


CKKUAC CREATED BY MACRO ON 24-APR=81 AT 10:52 PAGE 2 
SEQUENCE 137 

SYMBOL CROSS REFERENCE CREF 01 

SYMBOL VALUE REFERENCES 

AUSWR = 000000 92-4068 2-406 

AVECT1 = 000000 92-4068 92-4068 

AVECT2 = 000000 2-4 92-4 

BADCPU 007452 #54-2623 55-27 

BADPC 001340 #21-1490 36-2086 *37-2122 107-4178 107-4179 107-4180 

BITO = 000001 #17-148 38-2149 38-2154 59-2931 63-3085 64-3123 80-3718 80-3729 

BIT0O0 == 000001 #17-1483 17-1483 50-2480 93-4070 93-4070 94-4072 94-4072 

BITO1 = 000002 #17-1483 17-1483 

BITO2 = 000004 #17-1483 17-1483 

BIT03 = 000010 #17-1483 17-1483 

BIT04 = 000020 #17-1483 17-1483 

BITOS = 000040 #17-1483 17-1483 

BIT06 = 000100 #17-1483 17-1483 50-2498 50-2502 

BIT07? = 000200 #17-1483 17-1483 50-2513 

BIT08 = 000400 #17-1483 17-1483 50-2481 50-2529 93-4070 

BITO9 = 001000 #17-1483 17-1483 56-2776 58-2904 60-2983 93-4070 94-4072 

BIT1 5 2 #17-1483 

BIT10 = 002000 #17-1483 94-4072 

BIT11 = 004000 fat, *: 42-2278 44-2358 46-2423 60-2952 69-3315 69-3334 74-3521 90-4045 

BIT12 = 010000 #17-1483 50-2482 50-2530 96-4076 

BIT13 = 020000 417-1483 94-4072 

BIT14 = 040000 #17-1483 80-3722 84-3824 85-3850 85-3855 86-3877 93-4070 

BIT1S5 = 100000 #17-1483 45-2398 

BIT2 = 000004 #17-1483 

BITS = 000010 #17-1483 

BITS = 000020 16-1454 #17-1483 32-1971 59-2932 

BITS = 000040 #17-1483 34-2005 64-3122 70-3407 71-3468 73-3505 88-3947 

BIT6 = 000100 #17-1483 79-3684 

BIT? = 000200 #17-1483 

BIT8 = 0004 #17-1483 

BIT9 = 001000 #17-1483 57-2829 62-3055 69-3344 70-3451 82-3796 84-3837 85-3864 86-3890 

BPTVEC = 000014 #17-1483 

BUPWIN 001276 #21-1490  +*66-3213 69-3362 69-3390 

CACHE = 177746 #16-1458 *50-2481 50-2482 +*50-2495 *50-2498 *50-2502 *50-2504 *50-2513 *50-2524 
*50-2529 50-2530 *78-3646 *79-3702 

CACHVE = 000114 #17-1483 

CASHSR 005324 #50-2480 78-3644 79-3693 

CHARCT 005764 #53-2588 

CHKLMA 005076 38-216 42-2275 44-2355  #46-2419 69-3321 69-3340 69-3349 

CHKPAT 56 #51-2536 57-2812 57-2826 

CLRMAP 002772 #34-2002 58-2877 61-3007 69-3279 

CMPE = 177744 #16-1459 = *50-2503 = 50-2523 

CNTR 001322 #21-1490 

CONTRL = 177746 #17-1483 

CPFLAG 3224 #36-2077 *36-2093 = 36-2096 )3=— 36-2101) = *55-2735 = * 94-4072 

CPSAVE 020552 29-1894  *93-4070 93-4070 #93-4070 +*94-4072 94-4072 

CPUER 003222 #36-2076 55-2729 56-2782 

CPUERR = 177766 #17-1483 35-2036 *35-2037 36-2085 *36-2102 *55-2738 *94-4072 

CPUE XP 001326 #21-1490 35-2033 35-2038 35-2047 36-2087 36-2091 36-2100 *44-2339 = # 44-2344 
844-2347 44-2349 = *55-2731 = #602957 = 60-2959 = #602962 = 60-2964 §=— *60-2972 }=— 60-2974 
*60-2985  *60-2987 *61-3012 +*61-3014 61-3027 61-5029 *62-3059 *63-3095 





, CKKUAC 


SYMBOL 
SYMBOL 


CPUMSG 
CPUTYP 
CR 
CRLF 


CREATED BY MACRO ON 24-APR-81 AT 10:52 AGE 3 
SEQ UENCE 138 
CROSS REFERENCE CREF vO01 
VALUE REFERENCES 
*63-3096 «= 64-3132 «= 64-3135 = #64-3143 
*66-3210 69-3307  +*69-3309  +*90-4049 
006204 #54-2609 *55-2685 55-2686 *55-2690 
010003 35-2030 35-2043 36-2089 #54-2628 
= 000015 #17-1483 98-4080 98-4080 
= 000200 #17-1483 53-2606 53-2608 54-2609 
54-2613 54-2614 54-2615 54-2616 
54-2621 54-262 54-2623 54-262 
105-4111 =105=4112 += 105-4135 = 105-4137 
106-4155 106-4162 106-416 106-4171 
= 000116 #16-1462 50-2489 *50-2491 *50-2528 
= 000114 #16-1461 50-2488 *50-2490 *50-2527 
1 #21-1490 44-2340 44-2375 = *44-238 
001242 #21-1490 +*39-2181 *57-2856 +*93-4070 
001246 #21-1490 = *39-2179 = 57-2854 +*93-4070 
003624 #39-2179 57-2819 58-2896 62-3046 
= 1 #85-3847 85-3854 
= 14 #86-3874 86-3881 
= 177570 #17-1483 21-149 
006124 53-2586  #53-2605 
032654 22-1495 22-1501 22-1508 23-1542 
24-160 24-1608 24-1620 24-1626 
#108-4205 
032704 23-154 #108-4209 
032712 23-1570 26-1678 #108-4210 
032724 26-1652 26-1665 26-1684 26-1690 
032732 26-1671 4108-4213 
032737 26-1696 #108-4214 
032720 24-1614 #108-4211 
032661 22-1515 #108-4206 
32 22-1522 23-1584  #108-4207 
032674 22-1529 23-1535 26-1659 #108-4208 
027773 22-1493 #106-414 
030601 23-1540 23-15 23-1561 24-1587 
030626 23-1546 23-1567 23-1581 #106-4153 
030763 23-1574 #106-4155 
030032 22-1499 = #106-4143 
031240 26-1650 #106-4161 
031267 26-1656 #106-4162 
031376 26-1663 #106-4164 
031457 26-1667 106-4165 
031530 26-1675 #106-4166 
031615 26-1682 #106-4168 
31665 25-1688 106-4169 
031726 26-1694 #106-4170 
031760 27-1700 27-1708 #106-4171 
032063 #106-4173 
32142 27-1715 27-1721. #106-4175 
031042 24-1612 4106-4157 
031103 24-1618 24-1624 24-1630 4106-4158 
031142 24-1636 4106-415 
030061 22-1505 4106-4144 





*65-3168 
0335682 
54-2609 
54-2617 
54-2626 


106-4144 
106-4173 


#44~-2383 
69-3330 
23-1555 


24-1632 


27-1703 


24-1593 


*65-3174 
107-4178 


*55=2683 
54-2610 


70604166 


#44-2384 
107-4183 
107-4183 
70-3443 


23-1563 


24-1638 


27-1711 


24-1600 


*65-3177 
107-4187 
55-2688 
54-2611 
106-4148 


107-4185 
107-4185 


#108-4212 


24-1606 


*66-3204 
107-4202 


56-2750 
54-2612 
54-2619 


98-4080 
106-4150 


107-4186 
107-4186 


24-1589 
27-1717 


#106-4152 


*66-3207 


78-3633 


54-2612 

54-2620. 
105-4107 
106-4153 


24-1595 
27-1723 


we 
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SYMBOL CROSS REFERENCE 
SYMBOL VALUE 


DH30 031201 
DHS 030160 
DHS 030255 
030412 
DISPLA 001140 
DISPRE 174 
DSABLD 523 
DSWR = 177570 
DTMS 00574 
DTMSG 065750 
DT1 032212 
DT10 032324 
DT11 032334 
D114 032352 
D115 032370 
bT2 C32224 
DT201 032464 
DT202 032474 
DT203 032510 
DT204 032526 
DT205 032542 
DT206 032554 
DT207 032570 
DT210 032602 
DT211 032612 
DT2i2 032626 
DT213 032640 
DT23 032402 
DT24 032414 
DT26 032426 
DT27 032440 
DT 032234 
DT30 032452 
DT4 032250 
DTS 032264 
DT6 032302 
EADRES 005770 
EADRS2 005774 
EMTVEC = 
EM1 024032 
EMiO 024655 
—M11 025027 
—M12 025121 
—EM13 025173 
—EM14 025377 
—M15 025502 
—EM16 025575 
—M17 025673 


EM2 024117 





REFERENCES 
25-1641 #106-4160 
22-1512 4106-4146 
22-1519 106-4148 
22-1526 23-1532 
#21-1490 47-2441 
#18-1486 
#48-2453 64-3136 
#17-1483 21-1490 
#53-25 67-3222 
53-2586 453-2587 
22-1494 #107-4178 
23-1541 23-155 
23-1548 #107-4185 
23-1569 23-1583 
23-1576 #107-4187 
22-1500 #107-4179 
26-1651 =#107-4193 
26-1658 #107-4194 
26-1 #107-4195 
26-1670 4197-4196 
26-1677 34107-4197 
26-1683 #107-4198 
26-1689 #107-4199 
26-1695 #107-4200 
27-1702 27-1710 
#107-4202 
27-1716 27-1722 
24-1613 #107-4188 
24-1619 24-1625 
24-1631 107-4190 
24-1637 #107-4191 
22-1507 #107-4180 
25-164 #107-4192 
22-1514 #107-4181 
22-1521 #107-4182 
22-1528 23-1534 
41-2229 *41-2230 
#53-2590  *60-2982 
107-4194 107-4197 
453-2591 *58-2897 
107-4195 107-4197 
#17-1483 5-2653 
22-1492 #105-4100 
23-1538 4105-4107 
23-1545 #105-4109 
-1552  #105-4110 
23-1558 #105-4111 
23-1566 #105-4114 
23-1573 = =6#105-4115 
23-1580 #105-4116 
24-1586 4105-4117 
22-1498 #105-4101 


CREATED BY MACRO ON 24-APR-81 AT aie * PAGE 4 


QUENCE 139 
CREF  vO01 
#106-4150 
93-4070 94-4072 
65-3178 66-3202 
23-156c 24-1588 
#107-4186 
#107-4201 
#107-4203 
#107-4189 
#107-4183 
41-2241 9-41-2243 
*80-3720 *80-3721 
107-4198 107-4199 
*70-3444 +*70-3445 
55-2653 


J 11 


24-1594 


*41-2244 
80-3731 
107-4200 

*80-3736 


24-1601 


*42-2286 


*80-3737 


24-1607 #107-4184 

*42-2287 *44-2365 44-2366 
*93- ‘070 107-4188 107-4193 
*93-4070 107-4188 107-4194 


4 


K 11 


CKKUAC CREATED BY MACRO ON 24-APR=81 AT 10:52 PAGE 5 
SEQUENCE 140 
SYMBOL CROSS REFERENCE CREF 01 
SYMBOL VALUE REFERENCES 
EM20 025723 24-1592 9105-4118 
EM201 026477 26-1649 105-4127 
EM202 026553 26-1655 4105-4128 
EM205 2664 26-1662 4105-4129 
EM204 026727 26-16 #105-4130 
EM205 026776 26-1674 = =#105-4131 
EM206 27 26-1681 #105-4132 
EM207 027111 26-1687 4105-4133 
EM21 026022 24-1598 #105-4119 
EM210 027220 26-1693 #105-4134 
EM211 027320 27-1698 #105-4135 
EM212 027456 27-1706 §=—#105-4137 
EM213 027611 27-1714 = =#105-4139 
EM214 027702 27-1720 =#105-4140 
EM22 026100 24-1605 #105-4120 
EM23 26166 24-1611 3 =#105-4121 
EM24 026216 24-1617 =9#105-4122 
EM25 026254 24-1623 = 105-4123 
EM26 026311 24-1629 4105-4124 
EM27 26344 24-1635 = #105-4125 
EM3 024171 22-1504 #105-4102 
EM30 026444 25-1640 #105-4126 
EM4 024277 22-1511 #105-4103 
EMS 024357 22-1518 4105-4104 
EM6 024452 22-1525 #105-4105 
EM7 024554 23-1531 #105-410 
ENABLD 5266 #49-2468 64-3144 65-3172 66-3211 
ERRCNT 001320 #21-1490 29-1785 29-1792 35-2045 *36-2099 *56-2752 56-2754  *56-2773 56-2778 
56-2784 *56-278 *57-2804 57-2836 *57-2840 *57-2857 58-2910 *58-2913 62-3060 
*62-306 *69-32 *69-3310 69-3393 +*69-3396 70-3454 *70-3457 *88-3959 +*90-4041 
*93-4070 *94-4072 107-4181 107-4182 107-4183 107-418 107-4186 
ERROR 104000 #16-1467 = =#17-1483 35-2041 -2053 36-209 6-2097 7-2128 56-2788 57-2828 
57-2843 57-284 58-290 58-2914 60-2981 61-3020 62-3054 62-3064 62-3067 
63-31 64-3137 64-3141 64-3145 65-3173 65-3180 66-3203 66-3212 69-3343 
69-3370 69-3397 70-3450 70-3458 71-3473 72-3488 73-3510 75-3565 76-3583 
77-3596 78-3649 79-3697 79-3701 80-3739 81-3759 82-3775 82-3795 83-3812 
84-38 85-3863 86-3889 88-3957 89-4019 
ERRVEC #17-1483 = *55-2729 = 55-2730 3=— *56-2749 = 56-2782 93-4070 +*93-4070 +*93-4070 *93-4070 
ERTYPE 002026 #29-1771 94-4072 
ER200 1 #26-1644 29-1800 29-1803 
EXTOUT 005766 #53-2589 
F JBIT 100 #81-3752 81-3755 81-3758 82-3770 82-3771 82-3774 83-3807 83-3808 83-3811 
FLAG 001324 #21-1490 
FLOATR 38-2144 *38-2149 *38-2154 +*38-2156 48-2457 49-2472  #53-2592 
FTTHRU 003532 #38-2152 64-3128 
GMRMD 1 007706 #54-2626 *56-2763 56-2764 56-2765 
GMRMOD 007711 #54-2627 56-2767 
GNS eerene 18-14 -1486 96-4076 96-4076 102-4088 102-4083 102-4088 102-4088 102-4088 
102-4088 102-4088 102-4088 102-4088 102-4088 102-4088 102-4088 102-4088 102-4088 
102-40 102-4088 102-4088 102-4088 102-4088 102-4088 102-4089 102-4089 102-4090 
102-4090 §=102-4091 102-4091 
HIADRS 177742 #17-1483 








CKKUAC 


LF 





CREATED BY MACRO ON 24-APR=81 AT 10:52 PAGE 6 
SEQUENCE 141 
mae REFERENCES CREF 01 
001260 #21-1490 *65-3162 65-3183 65-3184 
= 177752 #17-1483 
= 000011 #17-1483 98-4080 98-4080 
020554 ~4072 = 94-4072 Be-sece *94-4072 
= 20 #17-1483 55-2653 55-2653 
25 #54-2612 67-3221 
= 172360 #17-148 
= 172362 #17-1483 
= 172364 #17-1483 
= 172366 #17-1483 
= 172370 #17-1483 
= 172372 #17-1483 
= 172374 #17-1483 
= 172376 #17-1483 
= 172320 #17-1483 
= 172322 #17-1483 
= 172324 #17-1483 
= 172326 #17-1483 
= 172330 #17-1483 
= 172332 #17-1483 
= 172334 #17-1483 
= 172336 #17-1483 
= 001100 #17-148 
= 172340 #17~1483 30-1916 59-2924  *74-3550 
= 172342 #17-148 *74-3548 *78-3632  *88-3964 
= 172344 #17-1483 70-3442 80-3725 *80-3726 
85-384 *85-3849  *85-3866 86-3875 
= 172346 #17-1483 45-2395  *45-2396 *45-2401 
= 172350 #17-1483 = *44-2332 44-2372  +%44-2376 
65-31 *65-31 *65-3169 65-3170 
*69-3287 +*69-33 *69-3301 69-3304 
69-3357 69-3359 69-3360 69-3362 
*82-378 82-3788  +*82-3799 90-4042 
= 172352 #17-1483 = *61-3022 *61-3024 62-3 
= 172354 #17-1483 = 42-2269 §=— 44-2333 60-2948 
*60- 2993 *61-3009 +*61-3017 
*70-34 70-3435 70-3439 *89-3991 
= 172356 #17-1483 35-2050 57-2822 58-2894 
= 172 #17-1483 59-2919 
= 172302 #17-1483 
= 172304 #17-1483 
= 172306 #17-1483 
= 172310 #17-1483 
= 172312 #17-1483 
= 172314 #17-1483 
= 172316 #17-1483 
=%000006 #17-1483 = *29-1771 = *29-1775 29-1788 
1847 = 29-1848 = 29-1856 3=— 29-1872 
30-1926 *30-192 * 30-1932 30-1932 
31-1954 32-1972 32-1974 32-1975 
*36-2083 *36-2084 +*36-2103 +*36-2104 
= 000012 #17-1483 98-4080 98-4080 


L 11 


66-3194 


*94=-4072 


*78-3631 
*80-3738 


69-3329 


29-1796 


37-2122 


69-3357 


94-4072 


*80-3728 
*80-3744 


69-3368 


*29-1825 


*37-2123 


69-3383 


94-4072 


*88-3963 
84-3820 
*55-2720 
*64-3138 
66-3200 
69-3338 
70-3416 


107-4192 


86 
*89-4025 


*29-1833 
86 


*37-2124 


82-3778 


94-4072 


*84-3821 
55-2721 


82-3782 


60-2969 
70-3421 


*29-1839 
909 


*37-2131 


88-3952 


94-4072 


*84-3839 
*55-2723 


*82-3783 


*60-2988 
70-3424 


*37-2132 






M11 


CKKUAC CREATED BY MACRO ON 24-APR=81 AT 10:52 PAGE 7 





SEQUENCE 142 
SYMBOL CROSS REFERENCE CREF 01 
SYMBOL VALUE REFERENCES 
= 177546 #17-1483 
= 000100 #17-1483 
001304 #21-1490  *69-3317 69-3322 69-3336 69-3341 3350 
= 177736 #16-1469 38-2163 42-2276 44-2356 45-2392 9-3317 69-3336 80-3733 80-3737 
81-3755 81-3757 *82-3770 82-3771 82-3773  *83-3807 83-3808 83-3810 84-3826 
84-383 85-3852 85-386 86-3879 86-3886 107-41 
001306 #21-1490  *09-3318 69-332 *69-3337 69-3341 69-3350 
LMALOW = 177734 wee 38-2163 42-2276 44-2356 45-2388 45-2397 69-3318 69-3337 80-3731 
LOADRS = 177740 #17-1483 
LOEFLG 004312 42-2260 42-2289 #42-2296 44-2323 = #44-2367 = *71-3469) = 72-3485 = 73-3506 §=—. *75- 3563 
*76-3581 = *77=3594 4038 *90-4058 
ooP 010570 55-2725 #55-2727 96-4076 
LOWEST 001256 #21-1490 42-2269 44-2333 65-3153 65-3154 68-3249 69-3284 69-3287 74-3546 
80-3726 82-3776 88-3950 90-4042 
001300 #21-1490 42-2268 44-2329 44-2377  +%68-3253 68-3255 69-3283 80-3723 90-4044 
LREGU 001302 #21-1490 42-2267 44-2328 44-2379 44-2380  +*68-3255  +*68-3256 74-3540 80-3724 
= 177750 #16-1460 9 =#17-1483 = *50-2492 = *50-2525 
MAPADD 106 #42-2260 72-3487 76-3582 
MAPHO. = 170202 #17-1483 
MAPHOO = 170202 #17-1483 17-1483 57-2850 
MAPHO1 = 170206 #17-1483 17-1483 
MAPHO2 = 170212 #17-1483 17-1483 
MAPHO3 = 170216 #17-1483 17-1483 
MAPHOS, = 170222 #17-1483 17-1483 
MAPHOS = 170226 #17-1483 17-1483 
MAPHO6 = 170232 #17-1483 17-1483 
MAPHO7 = 170236 #17-1483 17-1483 
= 170206 #17-1483 
MAPH10 = 170242 #17-1483 
MAPH11 = 170246 #17-1483 
MAPH12 = 170252 #17-1483 
MAPH13 = 170256 #17-1483 
MAPH14 = 170262 #17-1483 
MAPH15 = 170266 #17-1483 
MAPH16 = 170272 #17-1483 
MAPH17 = 170276 #17-1483 
MAPH2 = 170212 #17-1483 
MAPH20 = 170302 #17-1483 
MAPH21 = 170306 #17-1483 
MAPH22 = 170312 #17-1483 
MAPH2S = 170316 #17-1483 
MAPH24 = 170320 #17-1483 
MAPH25 = 170326 #17-1483 
MAPH26 = 170332 #17-1483 
MAPH27 = 170336 #17-1483 
MAPHS = 170216 #17-1483 
MAPH30 = 170342 #17-1483 
MAPH31 = 170346 #17-1483 
MAPH32 = 170352 #17-1483 
MAPH33 = 170356 #17-1483 









CKKUAC 


CROSS REFERENCE 
VALUE 


006004 
= 177744 


CREATED BY 


REFERENCES 
#17-1483 


#17-1483 


MACRO ON 24-APR-81 AT 10:52 


34-2009 


34-2002 


17-1483 
17-1483 


#53-2593 
53-2594 


N 11 
PAGE 8 
SEQUENCE 143 

CREF O01 
57-2841 57-2847 58-2875 58-2883 
56-2753 56-2771 *60-2951 60-2965  *60-2967 
57-2806 58-2873 
69-3288 69-3372 
*57-2807 57-2820 *57-2851 
*57-2808 *57-2852 


60-2978 


*60-2980 


———e 


CKKUAC CREATED BY MACRO ON 24-APR-81 AT 10:52 PAGE 9 
SEQUENCE 144 
CROSS REFERENCE EF v01 
VALUE REFERENCES 
= #16-1466 5-2681 
003374 37-2116 = 37-2130 39 *55=2737 = 94-4072 
001270 #21-1490 53-2587 65-3163 *65-3181 +*65-3182 
001266 #21-1490 53-2587 +*65-3152 
= 177572. #17-1483 17-1483 37-2125 = *37=2129 = *50=2480 39 *55-2732 §3=— * 58-2872) *59-2931 = *6 35-3085 
*64-312 *69-3280 69-3285 *78-3629 *80-3718 80-3729 +*84-3822  +*88-5946  +*89-3993 
*94-407 *96-4076 
= 177574 #17-1483 17-1483 37-2126 
= 177576 #17-1483 17-1483 37-2127 
= 172516 #17-1483 17-1483 34-200 *55-2733 *58-2879 *59-2932 +*64-3122 69-3276 69-3278 
*70-340 *71-3468 *78-3630 80-3719 80-3727 +*81-3753 +*82-3780 +*82-3800  +*84-3823 
*88-3961 *88-3962  *96-4076 107-4184 é, 
017554 71-3472 75-3564 #90-4038 
003372 437-2115 55-2727 
= 000250 #17-1483 = *55-2727 = *55-2728 
007617 54-2625 56-2761 
006165 #53-2607 55-2697 
= 44-2347 44-2350  #73-3505 
003552 38-2147 38-215 38-2155 #38-2157 
007264 29-1790} =#54-2621 
013630 65-3185 67-322 67-3230 #68-3248 
001316 #21-1490 *88-3968 89-3992 . 
1362 #21-1490 47-2438  *88-3949 
001342 #21-1490 35-2028 35-2056 *36-2083 36-2086 36-2104 *37-2123 37-2132 
001344 #21-1490 =*35-2029 35-2055 *36-2084 36-2103 *37=2124 37-2131 
001346 #21-1490 = * 32-1974 33-1987 *33-1988 
001230 #21-1490 *30-1922 +*31-1946 
001226 #21-1490 =* 30-1923 30-1924 +*31-1945 31-1947 
001252 #21-1490 40-2195 *57-2855 *93-4070 107-4183 107-4185- 
01 #54-2632 
003650 #40-2193 57-2817 62-3048 
006106 #53-2597 57-2811 61-3036 
001254 #21-1490 *40-2193 *57-28535 *93-4070 107-4183 107-4185 
001334 #21-1490 
001330 #21-1490 *35-2032 *35-2036 35-2037 35-2038  *36-2085 36-2091 *36-2100 36-210 
*38-2158 38-2165 44-2335 44-2345 44-2350  *61-3011 61-3015 +*69-3302 69-3311 
*88-3960 89-4016 +*89-4022 +*90-4048 90-4055 107-4178 107-4179 107-4187 107-4202 
= 177772 #17-1483 
= 000240 #17-1483 
001336 #21-1490 
002526 29-1890 #29-1894 
2536 29-18 #29-1895 
002476 29-1890 29-1892 
002442 29-1890 #29-1891 
002432 29-1780 #29-1890 
001350 #21-1490 = * 337-2125 107-4180 
001352 #21-1490 *37-2126 107-4180 
001354 #21-1490 = *37-2127 107-4180 
001332 #21-14 
005166 447-2437 56-2748 57-2803 58-2871 60-2947 61-3006 63-3083 69-3275 70-3406 
71-3467 72-3484 73-3499 75-3562 76-3579 77-3593 78-3628 79-3683 80-3717 
81-3751 82-3769 83-3806 84-3819 85-3846 86-3873 88-3945 89-3988 









CKKUAC 


CREATED BY MACRO ON 24-APR-81 AT aa * 
CROSS REFERENCE 
ALUE 


172240 





REFERENCES 
#17-1483 


#17-1483 


17-1483 


44-2360 
#103-4094 


*44-2372 


#43-2303 
*50-2522 


31-1941 


81-5751 











PAGE 10 
CE 145 
CREF vO01 


*55-2640 
445-2388 
55-2654 103-4093 *103-4093 *103-4093 *103-4093 
#102-4088 
#102-4088 #102-4091 
#102-4088 104-4097 
55-2665 *55-2665 
*50-2522 
#102-4088 104-4097 
57-2803 58-2871 60-2947 61-3006 63-3082 
73-3498 74-3518 75-3562 76-3579 77-3593 
82-3769 83-3806 84-3819 85-3846 86-3873 


*103-4093 *103-4093 
69-3275 70-3406 
78-3628 79-3683 
88-3945 89-3988 









CKKUAC CREATED BY 
SYMBOL CROSS REFERENCE 
SYMBOL VALUE 
SIPAR1 = 172242 
SIPAR2 = 172244 
SIPAR3 = 172246 
SIPAR4 = 172250 
SIPARS = 172252 
SIPAR6 = 172254 
SIPAR7 = 172256 
SIPDRO = 172200 
SIPDR1 = 172202 
SIPDR2 = 172204 
SIPDR3 = 172206 
SIPDR&4 = 172210 
IPDRS = 172212 
SIPDR6 = 172214 
SIPDR7 = 172216 
SIZEHI = 177762 
SIZEJO 012726 
SIZEJ1 013136 
SIZEJ2 013364 
SIZELO = 177760 
SPECST 
SRO = 177572 
SR1 = 177574 
SR2 = 177576 
SR3 = 172516 
SSP = 
STACK = 001100 
START 010000 
STKLMT = 177774 
SUPSTK = 000700 
SWR 001136 
SWREG 000176 
SwO = 000001 
SwOO = 000001 
Sw01 = 000002 
SWO2 = 000004 
Sw03 = 000010 
Sw04 = 000020 
Sw05 = 000040 
SWw06 = 000100 
SwWO7 = 000200 
Sw08 = 000400 
Sw09 = 001000 
SwW1 = 2 
SW10 = 002000 
SwW11 = 004000 
SW12 = 010000 
Sw13 = 020000 


REFERENCES 
#17-1483 


417-1483 


MACRO ON 24-APR-81 AT 10:52 
creer se 


63-3084 


64-3116 


17-1483 
#55-2640 


29-1794 
57-2829 


94-4072 


wW 


WW 


wW 


Ww 


WwW 


WIN 


ae ee eT) 
Pererectiiec 
ad aed aed ced een eed en ee ce 
HHRRHKHLHKHHKHRS 
gt yt yt gt pet ge ge et et | 


wW 


63-3099 


64-3121 


17-1483 
64-3142 


42-2278 


96-4076 


PAGE 11 


# 


vo1 


64-3113 


67-3229 


17-1483 
103-4093 


44-2358 
60-2983 
79-3691 
93-4070 
103-4093 


88-3954 


67-3232 


55-2646 


46-2423 
62-3055 
82-3796 
93-4070 
103-4093 


55-2664 


*55-2694 
69-3315 


55-2709 = =*55-2711 
69-3534 69-3344 
85-3 86-3890 
94-4072 94-4072 


*55-2726 
70-3451 
88-3947 
94-4072 





CKKUAC 


CROSS REFERENCE 
AL 


nnnnnnnnnnnne 


CREATED BY MACRO ON 24-APR=81 AT 10:52 


012224 


REFERENCES 
#17-1483 


1 
60-2947 


29-1794 
94-4072 
32-1972 


102-4089 
0 


*35-2040 
67-3231 


55-2653 
64-3133 


#73-3498 


#76-3579 
#77-3593 


#61-3006 





PAGE 12 
SEQUENCE 147 
CREF v0O1 
32-1975 33-1988 
96-4076 #102-4090 
55-2654 
77-3595 
60-2957 60-2962 
65-3174 66-3204 
*35-2052 *35-2054 
55-2654 
65-3175 66-3205 
#56-2748 
#70-3406 
70-3455 #71-3467 
#57-2803 
78-3643 78-3648 
79-3683 #80-3717 
80-3743 #81-3751 
482-3769 
#83-3806 
#84-3819 
57-2848  #58-2871 
#88-3945 
#89-3988 


60-2972 
69-3307 


*55-2736 


82-3790 


#79-3683 


69-2985 
90-4049 


*94-4072 


82-3793 


61-3012 
90-4055 


61-3027 


61-3039 


F 12 


CKKUAC CREATED BY MACRO ON 24-APR=-81 AT 10:52 PAGE 13 
| SEQUENCE 148 
SYMBOL CROSS REFERENCE CREF vO01 
SYMBOL VALUE REFERENCES 
TST6 012612 61-3006 62-3066 #63-3082 
TST? 013674 #69-3275 
TYPDAT = 002244 #29-1826 67-3226 
TYPDS = 104405 29-1840 29-1880 67-3234 88-3979 96-4076 96-4076 #102-4088 
| TYPE = 104401 29-1790 29-1807 29-1811 29-1813 29-1818 29-1820 29-1849 29-1882 30-1928 
31-1951 55-2671 55-2686 55-2691 55-2697 55-2705 56-2761 56-2764 56-2767 
67-3221 67-3227 67-3228 67-3231 67-3235 67-3240 88-3978 88-3980 94-4072 
94-4072 96-4076 96-4076 96-4076 98-4080 99-4082 100-4084 101-4086 101-4086 
101-4086 #102-4088 103-4093 
TYPOC = 104402 1776 29-1834 #102-4088 
TYPON = 104404 #102-4088 
TYPOS = 104403 -1873 #102-4088 
TYPVAD 002542 29-1857 #30-1908 
UBADDR 002650 29-1865 431-1941 
UBMAVA 006131 #53-2606 88-397 
UBMEND 006200 #53-2608 88-3980 
UBMH I 001 #21-1490 65-3160 *65-3161 *66-3214 82-3788 89-4033 
UBML OW 001262 #21-1490 65-3157 66-3194  *66-3195 82-3783 88-3971 89-3991 
UBMSU 015220 #74-3518 
UBM24L 001310 #21-1490 = 42-2272 42-2273 42-2280 42-2286 44-2336 44-2365 46-2430 *64-3129 
*69-3303 69-3306 *71-3471 *73-3508 
UBM24P 001314 #21-1490  *69-3295  *69-3299 69-33 , 
UBM24U 001312 #21-1490 44-2338 44-2366 46-2428 64-3130 *69-3277 *71-3470 = *72-3486 3=* 73-3507 
UBRHI 001274 #21-1490 53-2587 65-3158 *65-3159 66-3215 +*66-3216 88-3965 
UBRL OW 001272 #21-1490 53-2587 *65-3156  *66-3196 88-3966 
UDPARO = 177660 #17-148 
UDPAR1 = 177662 #17-1483 
UDPAR2 = 177664 #17-1483 
UDPAR3 = 177666 #17-1483 
UDPAR4 = 177670 #17-1483 
UDPARS = 177672 #17-1483 
UDPAR6 = 177674 #17-1483 
UDPAR7? = 177676 #17-1483 
UDPDRO = 177620 417-1433 
UDPDR1 = 177622 #17-1483 
UDPDR2 = 177624 #17-1483 
UDPDR3 = 177626 #17-1483 
UDPDR4 = 177630 #17-1483 
UDPDR5 = 177632 #17-1483 
UDPDR6 = 177634 #17-1483 
UDPDR7 = 177636 #17-1483 
UIPARO = 177640 #17-1483 
UIPAR1 = 177642 #17-1483 
UIPAR2 = 177644 #17-1483 
UIPAR3 = 177646 #17-1483 
UIPAR4 = 177650 #17-1483 
UIPARS = 177652 #17-1483 
UIPAR6 = 177654 #17-1483 
UIPAR7 = 177656 #17-1483 
UIPDRO = 177600 #17-1483 
UIPDR1 = 177602 #17-1483 
UIPDR2 = 177604 #17-1483 





moet eC nee 


CKKUAC 


2 ccuwm hol 
oe << 
fw 


$CM3 
$CM4 


SCNTLG 
SCNTLU 
$CPUOP 


CREATED BY MACRO ON 24-APR=-81 AT “s 
CROSS REFERENCE 
ALUE 


020106 


REFERENCES 
#17-1483 


PAGE 14 
QUENCE 149 
CREF O01 

#67-3219 
#91-4066 

95-4074 
#95-4074 

98-4080 
#95-4074 

94-4072 94-4072 94-4072 
*98-4080 98-4080 *98-4080 
#96-4076 

55-2641 55-2642 

21-1490 21-1490 #21-1490 
21-1490 21-1490 421-1490 
21-1490 21-1490 421-1490 
21-1490 21-1490 = =#21-1490 
21-1490 21-1490 

21-1490 21-1490 #21-1490 
21-1490 21-1490 #21-1490 
21-1490 21-1490 8421-1490 
29-1807 29-1813 29-1820 
94-4072 96-4076 98-4080 
100-4084 #100-4084 

30-1925 31-1948 #104-4097 
492-4068 

38-2148 #92-4068 





#98-4080 


21-1490 
21-1490 


67-3227 
98-4080 


21-1490 
21-1490 


21-1490 
21-1490 


21-1490 
21-1490 


67-3228 
98-4080 


#21-1490 
#21-1490 


#21-1490 
#21-1490 


#21-1490 
421-1490 


67-3235 
101-4086 


21-1490 
21-1490 


21-1490 
21-1490 


21-1490 
21-1490 


67-3240 
101-4086 


21-1490 
21-1490 


21-1490 
21-1490 
21-1490 
21-1490 


94-4072 


CKKUAC CREATED BY MACRO ON 24-APR-81 AT 10: se QUEN A. *.)° 
SYMBOL CROSS REFERENCE CREF v01 
SYMBOL VALUE REFERENCES 
Dw4 020110 #92-4068 
$DDW5 020112 #92-4068 
DW6 020114 #92-4068 
$DDW7 020116 #92-4068 
$ODW8 020120 #92-4068 
020122 #92-406 
SDEVCT 20024 #92-4068 
E 020072 #92-406 
021706 96-4076 96-4076 96-4076 #96-4076 
SDTBL 023050 100-40 #100-4084 
SENDAD 021676 19-1488 94-407 #96-4076 
SENDCT 021516 55-2655 #96-4076 
SENULL 021752 #96-4076 
SENV 020034 48-2453 49-2468 56-2756 #92-4068 94-4072 95-4074 95-4074 98-4080 
SENVM 020035 <e-scan 49-2470 55-2692 55-2724 78-5637 79-3686 #92-4068 95-4074 98-4080 
oP 021450 88-3949 88-3958 88-3981 89-4030 96-4076 
SEOPCT 021510 *55-2655  #96-4076 96-4076 
SERFLG 001101 uf teh + gary 18 *93-4070 93-4070 93-4070 *93-4070 93-4070 93-4070 +*94-4072 
SERMAX 001113 #21-1490 = 55-2657 93-4070 *93-4070 93-4070 93-4070 
RROR 020556 55-2653 #94-4072 
SERRPC 001114 #21-1490 29-1775 29-1894 *94-4072 *94-4072 94-4072 94-4072 94-4072 107-4181 
107-4184 107-4187 107-4188 107-4189 107-4190 107-4191 107-4192 107-4193 107-4194 
107-4195 107-4196 107-4197 107-4198 107-4199 107-4200 107-4201 107-4202 107-4203 
SERRTB 001366 #22-1490 29-1803 29-1808 
SERTTL 001110 #21-1490 56-2786 3=— 57-2839 = *58=2912 = 62-3062 «= *69- 3395 = *70-3456 = *89-4021 = * 94-4072 
94-4072 94-4072 96-4076 96-4076 *96-4076 
SESCAP 001214 #21-1490 *55-2656 *93-4070 94-4072 94-4072 94-4072 94-4072 
SE TABL 020034 #92-4068 
SE TEND 020140 91-4066 #92-4068 
SFATAL 020016 #92-4068 *95-4074 
SFFLG 021446 *95-4074 +*95-4074 95-4074 95-4074 #95-4074 
SFILLC 001154 #21-1430 98-4080 98-4080 98-4080 
SFILLS 001153 #21-1490 98-4080 98-4080 
SGDADR 001116 #21-1490 
SGDDAT 001122 #21-1490 
$GET42 021650 -4076 
$SGTSWR = *#eeee 102-4088 
= 16-1479 16-1479 16-1479 
SHIBTS 02 #91-406 
$SHIOCT 005742 *52-2579 #52-2584 
$SICNT 001102 #21-1490_ = *93-4070 93-4070. *93-4070 93-4070 93-4070 
$ILLUP 2 103-4093 103-4093 #103-4093 
SINTAG 001133 #21-1490 
SITEMB 001112 #21-1490 29-1773 *94-4072 94-4072 94-4072 *94-4072 94-4072 94-4072 94-4072 
SLF 001224 #21-1490 94-4072 94-4072 98-4080 98-4080 101-4086 101-4086 101-4086 
SLFLG 021445 *95-4074 #95-4074 
Oop 021744 96-4076 #96-4076 ; 
$LPADR 001104 #21-1490 = 47-2443 = *55-2667 = *93-4070 = 93-4070 93-4070 93-4070 93-4070 
$LPERR 001106 #21-1490 = 42-2266 = #44-2334 = 47-2439 = 55-2668 = *56-2774 = *56-2783) —*57-2805 = *57- 2831 
*57-2838 57-2849 62-3049 64-3131 *65-3165 *66-3197 *82-3781 *88-3954 93-4070 





guecneemeeeenniaaeas 
| 
| 


| CKKUAC 


CREATED BY 
CROSS REFERENCE 
VALUE 


MACRO ON 24-APR=81 AT 10:52 
SEQUEN 


REFERENCES 
pt any 1h 


#91-4066 

#103-4093 
55-2654 

ahh S's 


#101-4086 
#52-2554 


93-4070 


91-4066 


95-4074 
*95-4074 


*95-4074 
*36-2079 


93-4070 


86-3873 
*99-4082 


#103-4093 


#103-4093 
94-4072 
102-4088 


102-4088 
102-4088 





93-4070 


#92-4068 


*95-4074 
95-4974 
*37-2118 


93-4070 


9 
487-3965 
499-4082 

99-4082 
93-4070 


67-3219 
96-4076 


103-4093 


94-4072 
102-4088 


102-4088 
102-4088 


PAGE 


16 
151 
REF v0 


94-4072 


$3-4070 


495-4074 


*55-2704 


#93-4070 


87-3945 


*99-4082 
93-4070 
88-3973 
96-4076 


98-4080 


102-4091 


94-4072 


*56-2758 


H56-2803 


6 
488-3945 


*99-4082 
#93-4070 
#92-4068 


98-4080 


98-4080 


#92-4068 


56-2803 


88-3945 


#99-4082 
93-4070 


101-4086 


95-4074 


#57-2803 
47 


6 
#88-3988 


93-4070 


101-4086 


*95-4074 


57-2803 


88-3988 


93-4070 


101-4086 


95-4074 


#57-2871 


3 
#89-3988 


*96-4076 


-—_—_---—— 


CKKUAC 


SSWREG 
SSWRMK 


$TBIT 
STESTN 


CROSS REFERENCE 
AL 


000176 
177777 


020500 
000204 
177400 


020036 
000340 
021750 
020020 


001212 
001144 
001142 


001174 


001176 


CREATED BY MACRO ON 24-APR=81 AT 10:52 PAGE 1 
SEQUENCE nis2. 
CRE v01 
REFERENCES 
PAM y's 1 101-4086 
#21-1490 
#21-1490 = *94-4072 107-4199 
#21-1490  *94-4072 107-418 
#21-1490  *94-4072 107-4190 107-4196 
#21-1490  *94-4072 107-4195 107-4201 
#21-1490 =*94-4072 107-4195 
#21-1490 94-4072 107-4203 
#97-4078 102-4088 
#96-4076 
55-2654 *55-2658 «55-2663 96-4076 
102-4088 
#97-4078 102-4088 102-4088 
*103-4093 103-4093 *103-4093 *103-4093 
55-2653 #93-4070 
#18-1485 18-148 #18-1485 18-1485 
-1485 #18-1485 93-4070 94-4072 
101-4086 101-4086 1035-4093 
#28-1727 55-2694 55-2695 *55~2699 
#18-1485 #138-1485 18-1485 #18-1485 
#18-1485 418-1485 18-1485 #18-1485 
93-407 #93-4070 
#19-1488 19-1488 
#16-1464 16-1479 16-1480 16-1480 
16-1480 21-1490 21-1490 21-1490 
63-3082 69-3275 70-3406 71-3467 
78-3628 79-5683 80-3717 81-3751 
88-3945 89-3988 93-4070 93-4070 
93-4070 93-4070 93-4070 93-4070 
93-4070 93-4070 93-4070 93-4070 
94-4072 94-4072 94-407 94-4072 
96-407 96-407 103-4093 
55-2726 78-3639 79-3688  #92-4068 
#16-1463 16-1480 16-1480 16-1480 
16-1480 93-4070 93-4070 93-4070 
93-4070 93-4070 93-4070 
*55-2666 *96-4076 96-4076 96-4076 
29-1894 53-2587 *88-3956 #92-4068 
107-4181 107-4182 107-4183 107-4184 
107-4190 107-4191 107-4192 107-4193 
107-4199 107-4200 107-4201 107-4202 
#21-1490 = 47-2444 = 93-407 93-4070 
#21-1490 98-4080 98-4080 98-4080 
#21-1490 55-2642 98-4080 98-4080 
101-4086 
#21~1490 = * 338-2143 38-2167 *57-2815 
*62-3043 64-3127 65-3152 65-3158 
69-336 *69-3371 80-3735 *80-3734 
*85-3852 85-3853 *85-385 85-3856 
*86-38 86-388 107-4190 107-4191 
#21-1490 = 42-2280) = 42-2283) * 44-2365 
#21-1490 = 42-2284 = 44-2362 = 45-2397 


001200 


107-4201 


#96-4076 


#103-4093 


#18-1485 
94-4072 


*55-2701 


#18-1485 
#18-1485 


16-1480 


94-4072 


16-1480 
93-4070 


#96-4076 
*93-4070 


98-4080 
*57-2820 


*45~-2398 


94-4072 
16-1480 
93-4070 

*103-4093 
2 


98-4080 
*58-2876 
96 


*45-2399 


#18-1485 
94-4072 


#18-1485 


16-1480 


96-4076 


16-1480 
93-4070 


107-4178 
107-4187 
107-4196 


101-4086 
*58-2881 


1 
*62-3044 
45-2400 


18-1485 
96-4076 


#18-1485 


16-1480 


94-4072 
96-4076 


16-1480 
93-4070 


107-4179 
107-4188 
107-4197 


*96-4076 


101-4086 
101-4086 


3 
86-3880 


107-4196 
*45-2400 


#18-1485 
96-4076 


18-1485 


16-1480 


96-4076 


16-1480 
93-4070 


107-4780 
107-4189 
107-4198 


101-4086 
101-4086 


58-2899 
*69-3347 
84-3834 
86-3882 


107-4203 
*60-2948 





CKKUAC 


SYMBOL CROSS REFERENCE 
VALUE 


SYMBOL 


STRPAD 
STSTM 
STSTNM 


STTYIN 


CREATED BY MACRO ON 24-APR=81 AT 10: £0 


001202 
001204 
001206 


001210 
000032 


ageenae 


REFERENCES 
60- 


*84-3827 
*86-3881 


9103-4088 
*47-2440 
*93-4070 
*96-4076 
101-4086 


102-4088 
0 


2 
102-4088 


PAGE 18 
QUENCE ps 
CRE v01 
*84-3828 84-3829 
86-3882 86-3887 
58-2890  *69-3324 
*89-4014 107-4198 
41-2226 41-2227 
*61-3018 61-3023 
55-2748 56-2748 
57-2803 #57-2803 
59-294 60-2947 
#61-3006 62-3 
#69-3275 69-3394 
70-3467 71-3467 
#72-3484 72-3498 
75-357 76-3579 
#77-3593 77-3628 
78-368 79-368 
80-3717 #80-3717 
81-375 81-3769 
83-3806 83-38 
84-384 85-3846 
#86-3873 87-3945 
89-398 89-3988 
98-4080 98-4080 
98-4080 98-4080 
98-4080 98-4080 
102-4088 102-4088 
102-4088 102-4088 
#102-4088 102-4088 
102-4088 #102-4088 
102-4088 02-4088 
102-4088 102-4088 
102-4090 102-4090 
#102-4091 
47-2441 +*74-3519 
93-4070 93-4070 
101-4086 #101-4086 
102-4088 
102-4088 102-4088 
98-4080 #98-4080 
98-4080 #98-4080 
102-4088 
102-4088 


K 12 


84-3834 
69-3325 
*61-3023 


56-2748 


#89-3988 


102-4088 


102-4090 


*74-3523 
93-4070 


*85-3853 
107-4194 
*61-3025 


56-2748 


88-3945 


#102-4088 


102-4090 


*78-3635 
93-4070 


*85-3854 


62-3065 


#56-2748 
57-26.1 


88-3945 


102-4088 


#102-4090 


*79-3703 
94-4072 


85-3856 


62-3068 


Fy ath 2 


#88-3945 


102-4088 


102-4091 


*88-3955 
94-4072 


85-3861 


*89-4015 


56-2803 


88-3974 


102-4088 


102-4091 


93-4070 
94-4072 


rr rr ee 


L 12 
CKKUAC CREATED BY MACRO ON 24-APR=81 AT 10:52 PAGE 19 
SEQUENCE 154 
CROSS REFERENCE CREF O01 
VALUE REFERENCES 
020040 #92-4068 
020064 #92-4068 
02 #92-4068 
= 00002 98-4080 98-4080 
= 000021 98-4080 98-4080 98-4080 101-4086 
020244 #93-4070 
= 000001 #96-4076 #96-4076 96-4076 
022641 *99-4082 *99-4082 99-4082 #99-4082 
teeeee 93-4070 94-4072 


eeeere 95-4074 95-4074 
020000 #91-4066 
002026 #28-1725 28-1728 










CKKUAC CREATED BY MACRO ON 24-APR=81 AT “S PAGE 20 





















EQUENCE 155 
MACRO CROSS REFERENCE CREF O01 
MACRO NAME REFERENCES 
COMMEN #17-148 
DONE #16-1340 96-4076 
ENDCOM #17-148 
ESCAPE #17-1483 
GETPRI #17-1483 #96-4076 
GETSWR #17-1483 
MSG #81-3760 #62-3769 482-3801 #83-3806 #83-3813 #84-3819 484-3840  #85-3846 485-3867  #86-3873 
#88-3982 #89-3988 
MSG1 #55-2739 56-2748 
MSG11 3257 69-3275 
MSG12 #69-3398  #70-3406 
MSG13 #70-3459 71-3467 
MSG14 #71-3474 72-3484 
MSG15 #72-34 #73-3498 
MSG16 #74-3551 75-3562 
MSG17 #75-3566 76-3579 
G2 #56-2789 #57-2803 
MSG20 #76-3585 77-3593 
MSG21 #77-3598 #78-3628 
G22 #78-3650 79-3683 
MSG220 #79-3705 80-3717 
MSG221 #80-3745 81-3751 
G23 487-3934 #88-3945 
MSG4 #57-2859 #58-2871 
MSGS #59-2937 294 
MSG6 2 #61-3006 
_— a1 Mer ts #63-3082 
NEWTST #16-1456 17-1483 455-2748 #56-2803 #57-2871 #59-2947  #60-3006 62-3082 468-3275 #69-3406 
#70-3467 = =#71-3484 = #72-3498 = #74-3562 = #75-3579 «= #76-3593 = #77-3628 = #78-3685 = #79-3717 = #80- 3751 
481-3769 #82-3806 #83-3819 #84-3846 4#85-3873 #87-3945 #88-3988 
POP #17-1483 = 95-4074 = 95-4074 = #97-4078 = #100-4084 4103-4093 #103-4093 
PUSH #17-1483 95-4074 95-4074 95-4074 97-4078 100-4084 103-4093 103-4095 
REPORT #17-1483 
SAVTST #16-1378 #94-4072 
SETPRI #17-1483 
SETTRA #102-4088 102-4088 102-4088 102-4088 102-4088 102-4088 102-4088 102-4088 102-4088 102-4088 
— wltcaat 102-4089 102-4090 102-4091 
SKIP #17-1483 56-2785 457-2846 #57-2848 #62-3066 469-3394 #70-3423 #70-3455 #78-3640 #78-3643 
#78-3648 #80-3740 #80-3743 #81-3756 #82-3779 #83-3809 #88-3974 
SKIPJ #16-1331 79-3704 
SLASH #17-1483 
SPACE #16-1337 = =#17-1483 
SSCOPE #16-1356 #93-4070 
STARS #17-1483 19-1488 21-1490 21-1490 29-1730 29-1770 30-1897 30-1907 31-1935 31-1949 
32-1957 32-1958 32-1960 32-1961 32-1963 32-1970 33-1978 33-1986, 34-199 34-2001 
35-2013 35-2020 36-2059 36-2 36-2063 36-2075 37-2107 37-2114 38-2135 38-2142 
39-2171 39-2178 40-2185 40-2192 41-2199 41-2213 42-2249 42-2259 44-2315 44-2322 
46-2404 46-2418 47-2436 48-2447 48-2448 49-2464 50-2479 51-2535 52-2546 56-2748 
56-2748 57-2803 57-2803 58-2871 58-2871 60-2947 60-2947 61-3 61-3 63-3082 
63-3082 64-3102 64-3112 65-3147 65-3151 66-3187 66-3193 67-3218 68-3242 68-3247 





CKKUAC CREATED BY MACRO ON 24-APR=81 AT 10:52 PAGE 21 
SEQUENCE 156 
RRS GSS PRE ce eign 
69-3275 3275 70-3406 70-3406 71-3467 
73-3500 8= 73-3503 74-3514 74-3516 74-3526 
77-3593 77-3593 78-3628 78-3628 78-7628 
3717 81-3751 81-3751 82-3769 82-3769 
85-3846 86-387 86-387 86-3893 86-3899 
89-3988 90-4037 91-4 91-4066 91-4066 
97-4078 98-4080 99-4082 100-4084 101-4086 
04-4097 
SWRSU #17-1483 
TRACK #16-1370 56-2748 57-2803 58-2871 60-2947 
75-3562 76-3579 77-3593 78-3628 79-3683 
85-3246 86-3873 88-3945 89-3988 
TRACK1 #16-1375 56-2748 57-2803 58-2871 60-2947 
75-356 76-3579 77-3593 78-3628 79-3683 
85-384 86-3873 88-3945 89-3988 
TRMTRP #102-4088 
TYPBIN #17-1485 
TYPDEC #17-1483 96-4076 96-4076 
TYPNAM #17-1483 
TYPNUM #17-1483 
TYPOCS #17-1483 
TYPOCT #17-1483 
TYPTXT #16-1453 9-17-1483 = #96-4076 = #96-4076 
USER #16-1398  #21-1490 
ZEROER #16-1346 4 =#16-1388 94-4072 
SSCMRE #20-1490 = #21-1490 421-1490 §=#21-1490 = #21-1490 
SSCMTM #20-1490 9421-1490 §=— #21-1490 = #21-1490 = #2 11-1490 
SSESCA #17-1483 
SSNEWT #16-1456 417-1483 = #55-2748 §=—#56-2803 = #57-2871 
#70-3467 = #71-3484 = #72-3498 = #74-3562 = #75-3579 
#81-3769 #82-3806 83-3819 #84-3846 #85-3873 
S$SET #102-4088 #102-4088 #102-4088 #102-4088 #102-4088 
#1024088 #102-4089 #102-4090 #102-4091 
$$SKIP #17-1483 5€-2785 #57-2846 #57-2848 #62-3 
#78-3648 #80-3740 #80-3743 #81-3756 #82-3779 
-EQUIV #16-1334 16-1454 17-1483 17-148 17-148 
17-1483 17-1483 17-1483 17-1483 17-1483 
17-1483 17-1483 17-1483 17-1483 17-1483 
17-1483 17-1483 17-1483 17-1483 17-1483 
17-1483 17-1483 17-1483 17-1483 17-1483 
17-1483 17-1483 17-1483 17-1483 32-1971 
#16-1453 16-1479 
#16-1453 18-1485 
#16-1267 = =#16-1480 
#16-1480 16-1481 
#16-1453 19-1488 
#16-1457 #92-4068 
#16-1457 #91-4066 
#16-1457 #95-4074 
#16-1453 18-14 
#16-6 #16-1453_ #20-1490 
#16-1456 104-4097 





12 


9 
101-4086 


61-3006 
80-3717 


61-3006 
80-3717 


#21-1490 
#21-1490 


59-2947 


#102-4088 


469-3394 


9 
101-4086 


69-3275 
81-3751 


69-3275 
81-3751 


#21-1490 
#21-1490 


#60-3006 
#77-3628 
#88-3988 


#102-4088 


#70-3423 
#88-3974 


94 2 
102-4088 
70-3406 
82-3769 


70-3406 
82-3769 


#21-1490 


#62-3082 
#78-3683 


#102-4088 
#70-3455 
17-1483 


17-1483 


73-3498 


9 
103-4093 
71-3467 
83-3806 


71-3467 
83-3806 


#68-3275 
#79-3717 


#102-4088 
#78-3640 


17-1483 


17-1483 


96-4076 
103-4093 
72-3484 
84-3819 


72-3484 
84-3819 


#69-3406 
#80-3751 


#102-4088 
#78-3643 


17-1483 
17-1483 
17-1483 
17-1483 
17-1483 





CKKUAC 


MACRO CROSS REFERENCE 
MACRO NAME REF ERE 


CREATED BY MACRO ON 24-APR-81 AT nie 


